This is in Visual Basic 6, How would I make Idles so people can choose what idle they want? EX. Connected Uptime, System Uptime, Quotes. I'm using CSB. And if this was posted anywhere else, direct me to it please.
I think you should learn how to program first... Either way all you have to do is create a group of radio buttons, each represent a different idle, then have it send the idle based on the selected button.
Quote from: PsYcHiC on July 08, 2003, 08:23 PM
This is in Visual Basic 6, How would I make Idles so people can choose what idle they want? EX. Connected Uptime, System Uptime, Quotes. I'm using CSB. And if this was posted anywhere else, direct me to it please.
I know this post sounded newb, but I already have a bot made... I just need alittle help.
Look up GetTickCount...
or... because you should learn Visual Basic before attempting to write a bot in it?
I didn't really read if the question was answered, but the uptime question has already been addressed here: http://forum.valhallalegends.com/phpbbs/index.php?board=17;action=display;threadid=1298;start=msg10502#msg10502
Quote from: Camel on May 23, 2003, 02:49 PM
Public Function UpTime() As String
Dim ticks As Long
ticks = GetTickCount
UpTime = "Computer on for " & GetTime(ticks) & _
", running for " & GetTime(ticks - StartTime) & _
", logged on for " & GetTime(ticks - LogTime)
End Function
Public Function Zero(str As String, Count As Long, Optional Char As Byte = "0") As String
Zero = String(Count - Len(str), CStr(Char)) & str
End Function
Public Function GetTime(ByVal ticks As Long, Optional ShowDecimals As Boolean = False) As String
Dim TS As Long, TM As Long, TH As Long, TD As Long, TW As Long
TS = ticks \ 1000: ticks = ticks - TS * 1000
TM = TS \ 60: TS = TS - TM * 60
TH = TM \ 60: TM = TM - TH * 60
TD = TH \ 24: TH = TH - TD * 24
TW = TD \ 7: TD = TD - TW * 7
GetTime = Zero(CStr(TS), 2) & IIf(ShowDecimals, "." & Zero(CStr(ticks), 3), "") & "s"
If TM + TH + TD + TW > 0 Then GetTime = Zero(CStr(TM), 2) & "m " & GetTime
If TH + TD + TW > 0 Then GetTime = Zero(CStr(TH), 2) & "h " & GetTime
If TD + TW > 0 Then GetTime = CStr(TD) & "d " & GetTime
If TW > 0 Then GetTime = CStr(TW) & "w " & GetTime
End Function
?UpTime
Computer on for 1w 2d 23h 03m 30s, running for 22h 04m 08s, logged on for 22h 04m 07s
Remember that GetTickCount will reset every 49.7 days; I'd recommend against using it for uptime. That is, unless you're expecting to crash every few days :-)
Very few windows users leave their computers on for longer than 20 or so. Besides, if you're not going to provide a better solution, what's the point of posting?
Quote from: Camel on July 09, 2003, 04:42 PM
Very few windows users leave their computers on for longer than 20 or so. Besides, if you're not going to provide a better solution, what's the point of posting?
I stay up until the system forces me to go down, usually either due to hardware change or installing anything from Microsoft. Skywing tends to maintain uptimes even longer than mine.
Quote from: Camel on July 09, 2003, 04:42 PM
Very few windows users leave their computers on for longer than 20 or so. Besides, if you're not going to provide a better solution, what's the point of posting?
This has been covered before.
Query the performance counter "System\System Up Time" or use QueryPerformanceCounter/QueryPerformanceFrequency (the former is slower, the latter isn't guaranteed to work right under all processors).
Current longest uptime:
(http://www.vpnsys.com/uptime.gif)
I said "most users" intentionally.
I'll look into that, Skywing.
Thing, how does that have anything at all to do with windows uptime? I've had 230+ days on a linux box before; 104 is nothing to brag about. Besides, is this forum named "post your best uptime?" I think not.
Quote from: Thing on July 09, 2003, 05:56 PM
Current longest uptime:
(http://www.vpnsys.com/uptime.gif)
I had about 170 on Win2K before a power outage zapped it..
Well that was easy:
Public Function GetSecondCount() As Currency
Dim qpCounter As Currency, qpFrequency As Currency
QueryPerformanceCounter qpCounter
QueryPerformanceFrequency qpFrequency
GetSecondCount = qpCounter / qpFrequency
End Function
QuoteThing, how does that have anything at all to do with windows uptime?
It doesn't.
Quote104 is nothing to brag about.
I know. That is just my current longest uptime.
QuoteBesides, is this forum named "post your best uptime?" I think not.
I think you need a nap.
Yeah, sorry; I was feeling a little...eh...when I posted that.
nice big ass code
Quote
Public Function UpTime() As String
Dim ticks As Long
ticks = GetTickCount
UpTime = "Computer on for " & GetTime(ticks) & _
", running for " & GetTime(ticks - StartTime) & _
", logged on for " & GetTime(ticks - LogTime)
End Function
Public Function Zero(str As String, Count As Long, Optional Char As Byte = "0") As String
Zero = String(Count - Len(str), CStr(Char)) & str
End Function
Public Function GetTime(ByVal ticks As Long, Optional ShowDecimals As Boolean = False) As String
Dim TS As Long, TM As Long, TH As Long, TD As Long, TW As Long
TS = ticks \ 1000: ticks = ticks - TS * 1000
TM = TS \ 60: TS = TS - TM * 60
TH = TM \ 60: TM = TM - TH * 60
TD = TH \ 24: TH = TH - TD * 24
TW = TD \ 7: TD = TD - TW * 7
GetTime = Zero(CStr(TS), 2) & IIf(ShowDecimals, "." & Zero(CStr(ticks), 3), "") & "s"
If TM + TH + TD + TW > 0 Then GetTime = Zero(CStr(TM), 2) & "m " & GetTime
If TH + TD + TW > 0 Then GetTime = Zero(CStr(TH), 2) & "h " & GetTime
If TD + TW > 0 Then GetTime = CStr(TD) & "d " & GetTime
If TW > 0 Then GetTime = CStr(TW) & "w " & GetTime
End Function
by any change, what name would i name the "timer" :/ and is it for cbs and what would i put under UserTalk
Access=RetrieveAccess(Access,Username)
If Access= "M" Then
??????