Koceljeva Forum


 
PrijemTražiRegistruj sePristupi

Delite
 

 [VB6] MSN nuker

Ići dole 
AutorPoruka
archer

archer

Muški Broj poruka : 297
Godina : 27
Lokacija : Kamenica
Datum upisa : 23.06.2007

[VB6] MSN nuker Empty
PočaljiNaslov: [VB6] MSN nuker   [VB6] MSN nuker Icon_minitimePet Sep 26, 2008 7:47 pm

Opet vb6, ovaj program menja status iz ofline u online u zadatom intervalu. verujte radi posao, cim ga ukljucim odmah neko pita sta mi je :>. EVo koda:
Kod:

Private Sub Command1_Click()
If messengerAPI.Messenger.MyStatus = MISTATUS_OFFLINE Then
MsgBox "Da biste bombardovali morate biti online !", vbCritical + vbOKOnly, "MSN nuker"
Else
If Tim.Enabled = False Then
    If txtI.Text < 1500 Then
    A = MsgBox("Nije preporuceno uzimati vrednosti za interval manje od 1500." & vbCrLf & "Zelite li da nastavite?", vbQuestion + vbYesNo, "MSN nuker")
    If A = vbYes Then GoTo 1
    If A = vbNo Then GoTo 2
    End If
1
            Tim.Interval = txtI.Text
            Tim.Enabled = True
Else
Tim.Enabled = False
End If
End If
2
End Sub

Private Sub Form_Load()
Label2.Caption = "MSN nuker by Arch[3]r" & vbCrLf & "Gr33tz goes to:" & vbCrLf & "FieryKoX, baltazar, an00bys" & vbCrLf & "and whole M21~1992" & vbCrLf & " and of course pozZz" & vbCrLf & "najlepsoj devojci na svetu."
End Sub

Private Sub Tim_Timer()


messengerAPI.Messenger.MyStatus = MISTATUS_ONLINE
messengerAPI.Messenger.MyStatus = MISTATUS_INVISIBLE


End Sub

Private Sub Timer1_Timer()
If Tim.Enabled = True Then
lbls.Caption = "Pounding"
Command1.Caption = "Stop"
ElseIf messengerAPI.Messenger.MyStatus = MISTATUS_OFFLINE Then
lbls.Caption = "Offline"
Command1.Caption = "b00m"
ElseIf messengerAPI.Messenger.MyStatus <> MISTATUS_OFFLINE Then
lbls.Caption = "Idle"
Command1.Caption = "b00m"
End If

End Sub
Evo i screenshot:
[VB6] MSN nuker Msn_nu10
Nazad na vrh Ići dole
unknown



Broj poruka : 50
Datum upisa : 30.12.2006

[VB6] MSN nuker Empty
PočaljiNaslov: Re: [VB6] MSN nuker   [VB6] MSN nuker Icon_minitimePet Okt 17, 2008 10:30 am

Nice...Jel to ono kad pokrenes meni izadje mnogo prozora?
Nazad na vrh Ići dole
archer

archer

Muški Broj poruka : 297
Godina : 27
Lokacija : Kamenica
Datum upisa : 23.06.2007

[VB6] MSN nuker Empty
PočaljiNaslov: Re: [VB6] MSN nuker   [VB6] MSN nuker Icon_minitimePet Okt 17, 2008 8:36 pm

da, mnoooooooooogo prozora
Nazad na vrh Ići dole
baltazar
Administrator
baltazar

Muški Broj poruka : 2253
Godina : 37
Lokacija : Koceljeva
Datum upisa : 01.12.2006

[VB6] MSN nuker Empty
PočaljiNaslov: Re: [VB6] MSN nuker   [VB6] MSN nuker Icon_minitimePet Dec 04, 2009 7:24 pm

Upravo ucim VB 2008...Mozda uskoro izdam neku alatku Smile

_________________
Yes, I am a criminal. My crime is that of curiosity.
My crime is that of judging people by what they say and think, not
what they look like.
I am a explorer, and this is my manifesto.
You may stop this individual, but you can't stop us all!

[VB6] MSN nuker Balti
Nazad na vrh Ići dole
http://koceljeva.editboard.com
Sponsored content




[VB6] MSN nuker Empty
PočaljiNaslov: Re: [VB6] MSN nuker   [VB6] MSN nuker Icon_minitime

Nazad na vrh Ići dole
 
[VB6] MSN nuker
Nazad na vrh 
Strana 1 od 1

Dozvole ovog foruma:Ne možete odgovarati na teme u ovom forumu
Koceljeva Forum :: Hi-tech :: Vasi projekti-
Skoči na: