[Visual Basic]Cum Sa Facem Botzi De Direct Conect !
Go to page 1, 2  Next    
 
This forum is locked: you cannot post, reply to, or edit topics.   This topic is locked: you cannot edit posts or make replies.    Freakz Forum Index -> Cos de Gunoi -> Trash
Author Message
Hidden

[Very Important Person]



Status: Offline
(since 25-01-2009 22:13)
Joined: 15 Nov 2006
Posts: 3391, Topics: 172
Location: Universul meu interior

Reputation: 440.7
Votes: 48

Post Posted: 29-03-2007, 22:04:21 | Translate post to: ... (Click for more languages)

Cum Sa Faci Botzi De Direct Conect In Visual Basic !

Acum va voi invata cum sa faceti botzii pentru Direct Conect.

Sa incepem:
Creati 3 butoane de comanda si le setati proprietatile asa:
Code:

Command1 -  Name = Command1 Caption="Conecteaza"
Command2 -  Name = Command2 Caption="Deconecteaza"
Command3 -  Name = Command3 Caption="Trimite Msg"


Apoi creati 4 textboxes si le setati proprietatile asa:
Code:

Text1 -  Name="txtAdresa"
Text1 -  Text="Adresa" 'punem asa la text ca sa le putem deosebi pe forma ( aplicatie )

Text2 -  Name=txtPort
Text2 -  Text="411"   ' asta este portul default pentru huburi ( il lasam asa ca sa le putem deosebi)

Text3 -  Name=txtMesaj
Text3 -  Text="Mesaj" ' mesajul care il trimite catre hub :-)

Text4 - Name=txtNick
Text4 - Text="Nickname"


Dupa ce ati facut pasii de mai sus...puneti pe forma si un timer
care sa aiba urmatoarele proprietati:
Code:

Enabled=False
Interval=350


Dupa ce ati pus si timer-ul acum duceti-va la ToolBox (in stanga
de tot unde se afla obiectele (butoanele timere etc) )...acolo dati
click dreapta si alegeti Components.
Va aparea o fereastra...scroll down pana gasiti in lista de acolo
Microsoft Winsock Control 6.0 bifati-l apoi click pe Apply
si pe OK.
Dupa cum vedeti..in toolbox a aparut un nou obiect...puneti-l pe forma
si setatii proprietatile asa:
Code:

Name=sock
Index=0


Acum dati dublu-click pe butonul Conecteaza !
Dupa cum vedeti..s-a deschis o noua fereastra...si au aparut 2
linii de cod:
Code:

Private Sub Command1_Click()

End Sub


Intre cele doua linii de cod...copiati urmatorul cod:
Code:


sock(0).RemoteHost = txtAdresa    -winsock-ul care l-ati pus pe forma..apare cu numele sock
                        'cum v-am spus sa-l setati..apoi in paranteza este cifra "0"
               ' adica indexul...care v-am spus sa-l setati asa :-)
              'remote host este egal cu txtAdresa adica se conecteaza la
              ' adresa pe care o scrieti voi in txtAdresa
sock(0).RemotePort = txtPort      ' idem ca mai sus doar ca remote port=txtPort ..adica se conecteaza
              ' la adresa de mai sus la portul care il scrieti voi in txtPort

sock(0).Connect         ' acum se conecteaza
Timer1.Enabled = True   



Apoi reveniti la forma si dati dublu click pe butonul "Deconecteaza".
Dupa cum vedeti iar au aparut o fereastra si 2 noi linii de cod:

Code:


Private Sub Command2_Click()

End Sub



Intre ele copiati urmatorul cod:

Code:


On error Resume Next     ' Error Handler
sock(0).close            'codul asta inchide conexiunea cu Remote Host-ul




Reveniti la forma si dati dublu-click pe butonul "Trimite Msg".
Dupa cum vedeti iar au aparut o fereastra si 2 noi linii de cod:
Code:

Private Sub Command3_Click()

End Sub



Intre acestea copiati urmatorul cod:

Code:
On Error Resume Next
sock(0).SendData "<" & txtNick & "> " & txtmess & "|"  'daca pui 500 de la fel :) trimite 500 mesaje..dar iei ban/kick imediat
sock(0).SendData "<" & txtNick & "> " & txtmess & "|"  'asta este exemplu
sock(0).SendData "<" & txtNick & "> " & txtmess & "|"  'si acesta :) deci botul acesta trimite pe hub 3 mesaje:)



Apoi din aceeasi fereastra...din dropdown-menu de sus...selectati general...si copiati urmatorul cod
Code:

Function Lock2Key(StrLock As String) As String   ' asta e functia...trebuie copiata
                         
    Dim TLock2Key As String 'mereu ..nu e necesar sa o inveti pe de rost
    Dim TChar As Integer
    Dim rLock As String
    If Len(StrLock) < 3 Then
      Lock2Key = Left$("BROKENCLIENT", Len(StrLock))
      Exit Function
    End If
        For I = 7 To Len(StrLock)
            If Mid$(StrLock, I, 3) = " Pk" Then
                I = Len(StrLock)
            Else
                rLock = rLock & Mid$(StrLock, I, 1)
            End If
        Next I
    TLock2Key = Chr$(Asc(Left$(rLock, 1)) Xor Asc(Right$(rLock, 1)) Xor Asc(Mid$(rLock, Len(rLock) - 1, 1)) Xor 5)
    For I = 2 To Len(rLock)
        TLock2Key = TLock2Key & Chr$(Asc(Mid$(rLock, I, 1)) Xor Asc(Mid$(rLock, I - 1, 1)))
    Next I
    For I = 1 To Len(TLock2Key)
        TChar = Asc(Mid$(TLock2Key, I, 1))
        TChar = TChar * 16 + TChar \ 16 'Swap bits 11110000 -> 00001111
        TChar = TChar Mod 256
        If TChar = 0 Or TChar = 5 Or TChar = 36 Or TChar = 96 Or TChar = 124 Or TChar = 126 Then
            Lock2Key = Lock2Key & "/%DCN" & Right$("000" & TChar, 3) & "%/"
        Else
            Lock2Key = Lock2Key & Chr$(TChar)
        End If
    Next I
End Function 'aici se termina functia :-)

Aceasta este functia LOCK2KEY...nu voi sta sa explic ce este si ce face...
ca dureaza ceva..dar daca vreti sa va interesati mai mult despre ea si despre protocolul
direct conect ...intrati aici:

Code:


http://gempond.com/odcps/




Apoi reveniti la forma..si dati dublu click pe Timer.
Dupa cum vedeti iar a aparut o fereastra si 2 noi linii de cod:

Code:


Private Sub Timer_Timer()

End Sub



Intre ele copiati codul urmator:

Code:


On Error Resume Next
Dim varkey As String
Dim rLock As String
Dim varlock As String
sock(0).GetData varlock, vbString
If InStr(varlock, "$Lock") Then
For I = 1 To Len(varlock)
            If Mid(StrLock, I, 3) = " Pk" Then
                I = Len(varlock)
            Else
                rLock = rLock & Mid(varlock, I, 1)
            End If
        Next I
varlock = rLock
varkey = Lock2Key(varlock)
sock(0).SendData "$Key " & varkey & "|"      ' ce trimite catre hub
sock(0).SendData "$ValidateNick " & txtNick & "|"        ' "valideaza" nick-ul
sock(0).SendData "$Version 1.0091|"     ' ce trimite catre hub
sock(0).SendData "$MyINFO $ALL " & txtNick & " <oDC>$ $Cable$$9421036014$|"        ' ce trimite catre hub
sock(0).SendData "$GetNickList|"    ' ce trimite catre hub
sock(0).GetData varuser, vbString ' ce trimite catre hub
sock(0).SendData "$GetINFO " & txtNick & " " & txtNick & "|"   ' ce trimite catre hub
End If
Timer1.Enabled = False



Ca sa intelegeti ce trimite catre hub bot-ul va recomand sa cititi/invatati
protocolul direct conect...care il puteti gasi la:

Code:


http://gempond.com/odcps/





Felicitari ! Tocmai ai facut propriul bot de direct conect !



Puteti downloada sursa de Aici (3.46 KB, 51 downloads, adaugat 05-12-2008)


Daca v-ati incurcat sau nu intelegeti ceva postati..si o sa va lamuresc -.


Sunteti liberi sa copiati tutorialul si pe alte forumuri/siteuri dar sa acordati credite.

Versiunea cu imagini a acestui tutorial o sa apara zilele astea

In Format PDF:Aici
In Format TEXT:Aici
Hidden @ Freakz.ro


...va asigur ca greselile ortografice, ortoepice, de punctuatie, morfosintactice si folosirea inadecvata a unitatilor lexico-semantice imi apartin, mi le asum, dar la scoala sa stiti ca tot nu ma duc!



Last edited by Hidden on 08-04-2007, 13:45:52; edited 1 time in total
0 0
  
Back to top
View user's profile Send private message
NkE

[Creep]



Status: Offline
(since 04-05-2008 13:41)
Joined: 20 Nov 2006
Posts: 928, Topics: 44
Location: In lumina reflectoarelor

Reputation: 127.8
Votes: 5

 
Post Posted: 30-03-2007, 16:38:59 | Translate post to: ... (Click for more languages)

NkE Bot Versiunea 1.0


DOWNLOAD
P.S Am pus si varianta cu parola
Parola = alexpele
Nu functioniaza perfect , dar merge. Nu trimite.
O sa revin cu Versiunea 1.1 care va fi mai buna.

0 0
  
Back to top
View user's profile Send private message Yahoo! Messenger ID
Hidden

[Very Important Person]



Status: Offline
(since 25-01-2009 22:13)
Joined: 15 Nov 2006
Posts: 3391, Topics: 172
Location: Universul meu interior

Reputation: 440.7
Votes: 48

Post Posted: 30-03-2007, 16:43:01 | Translate post to: ... (Click for more languages)

bun. o sa fac un concurs...care face cel mai bun bot. ...sa se mai bage cativa -

...va asigur ca greselile ortografice, ortoepice, de punctuatie, morfosintactice si folosirea inadecvata a unitatilor lexico-semantice imi apartin, mi le asum, dar la scoala sa stiti ca tot nu ma duc!

0 0
  
Back to top
View user's profile Send private message
Nigger

[Creep]



Status: Offline
(since 17-04-2013 00:04)
Joined: 03 Dec 2006
Posts: 789, Topics: 37
Location: Romania

Reputation: 253.6
Votes: 4

   
Post Posted: 30-03-2007, 18:10:36 | Translate post to: ... (Click for more languages)

Poi din moment ce toti fac aceleas ce concurenta vrei?
0 0
  
Back to top
View user's profile Send private message Yahoo! Messenger ID
Hidden

[Very Important Person]



Status: Offline
(since 25-01-2009 22:13)
Joined: 15 Nov 2006
Posts: 3391, Topics: 172
Location: Universul meu interior

Reputation: 440.7
Votes: 48

Post Posted: 30-03-2007, 18:16:39 | Translate post to: ... (Click for more languages)

asta e un inceput...voi improvizati botul. care e cel mai bun..castiga -

...va asigur ca greselile ortografice, ortoepice, de punctuatie, morfosintactice si folosirea inadecvata a unitatilor lexico-semantice imi apartin, mi le asum, dar la scoala sa stiti ca tot nu ma duc!

0 0
  
Back to top
View user's profile Send private message
Nigger

[Creep]



Status: Offline
(since 17-04-2013 00:04)
Joined: 03 Dec 2006
Posts: 789, Topics: 37
Location: Romania

Reputation: 253.6
Votes: 4

   
Post Posted: 30-03-2007, 18:20:54 | Translate post to: ... (Click for more languages)

Cistiga ce? Cum sa fie hacker? Sti la ce ma refer....
0 0
  
Back to top
View user's profile Send private message Yahoo! Messenger ID
NkE

[Creep]



Status: Offline
(since 04-05-2008 13:41)
Joined: 20 Nov 2006
Posts: 928, Topics: 44
Location: In lumina reflectoarelor

Reputation: 127.8
Votes: 5

 
Post Posted: 30-03-2007, 18:25:28 | Translate post to: ... (Click for more languages)

Nigger wrote:
Cistiga ce? Cum sa fie hacker? Sti la ce ma refer....

=))x100
Cum sa castige "Cum sa fie hacker"
Crezi ca daca faci un *** din asta esti hacker?
Pai ma gandesc ca o sa se uite si la design , etc -

0 0
  
Back to top
View user's profile Send private message Yahoo! Messenger ID
Hidden

[Very Important Person]



Status: Offline
(since 25-01-2009 22:13)
Joined: 15 Nov 2006
Posts: 3391, Topics: 172
Location: Universul meu interior

Reputation: 440.7
Votes: 48

Post Posted: 30-03-2007, 18:47:45 | Translate post to: ... (Click for more languages)

nu nu...nu ma intereseaza designul...dar conteaza si ala...conteaza sa se conecteze botul si sa mearga -

...va asigur ca greselile ortografice, ortoepice, de punctuatie, morfosintactice si folosirea inadecvata a unitatilor lexico-semantice imi apartin, mi le asum, dar la scoala sa stiti ca tot nu ma duc!

0 0
  
Back to top
View user's profile Send private message
NkE

[Creep]



Status: Offline
(since 04-05-2008 13:41)
Joined: 20 Nov 2006
Posts: 928, Topics: 44
Location: In lumina reflectoarelor

Reputation: 127.8
Votes: 5

 
Post Posted: 30-03-2007, 22:29:23 | Translate post to: ... (Click for more languages)

Versiunea 1.1

Download

0 0
  
Back to top
View user's profile Send private message Yahoo! Messenger ID
NkE

[Creep]



Status: Offline
(since 04-05-2008 13:41)
Joined: 20 Nov 2006
Posts: 928, Topics: 44
Location: In lumina reflectoarelor

Reputation: 127.8
Votes: 5

 
Post Posted: 31-03-2007, 16:34:51 | Translate post to: ... (Click for more languages)

Putem pune si o parola pe bot printr-un if-else. Haide-ti sa va arat cum

Pentru inceput adaugam un “CommandButton” si un “TextBox” pe forma (cele inconjurate cu culoarea rosu)

Facem dublu-click pe butonul introdus si ne va aparea o casuta in care scrie :
Code:
Private Sub Command1_Click()

End Sub

Intre aceste doua linii adaugam :
Code:
If Text1.Text = "Parola" Then ‘ Daca parola introdus in TextBox este Parola
MsgBox " Welcome to Hell " ‘ atunci va aparea o casuta cu Wellcome to Hell
Unload Me ‘ inchide programul

Else ‘ daca nu
MsgBox " Wrong Password " ‘ atunci va aparea o casuta cu Wrong Password
Unload Me ‘ inchide programul
End if

Inlocuim din "Parola" cuvantul Parola cu parola dorita
Inlocuim din " Welcome to hell " Welcome to hell cu mesajul dorit.
Inlocuim din " Wrong Password " Wrong password cu mesajul dorit.
Cam asta e tot

0 0
  
Back to top
View user's profile Send private message Yahoo! Messenger ID
Hidden

[Very Important Person]



Status: Offline
(since 25-01-2009 22:13)
Joined: 15 Nov 2006
Posts: 3391, Topics: 172
Location: Universul meu interior

Reputation: 440.7
Votes: 48

Post Posted: 08-04-2007, 13:46:27 | Translate post to: ... (Click for more languages)

**Updated**

...va asigur ca greselile ortografice, ortoepice, de punctuatie, morfosintactice si folosirea inadecvata a unitatilor lexico-semantice imi apartin, mi le asum, dar la scoala sa stiti ca tot nu ma duc!

0 0
  
Back to top
View user's profile Send private message
Daryanho
[Banned user]


Banned


Status: Offline
(since 31-07-2007 11:54)
Joined: 24 Mar 2007
Posts: 25, Topics: 7
Location:

Reputation: 91.4
Votes: 4

Post Posted: 11-04-2007, 10:32:40 | Translate post to: ... (Click for more languages)

SI unde pun sursa aia??Ai scris tu acolo "puteti downloada sursa de aici"Unde o pun?
0 0
  
Back to top
View user's profile Send private message
DusTeR

[Maniac]



Status: Offline
(since 19-01-2010 01:44)
Joined: 16 Jul 2006
Posts: 1074, Topics: 85
Location: Somewhere in the old empire

Reputation: 311.3
Votes: 7

Post Posted: 11-04-2007, 11:34:16 | Translate post to: ... (Click for more languages)

ai Visual Basic instalat?

The Empire Strikes Back // tru story!

0 0
  
Back to top
View user's profile Send private message
Hidden

[Very Important Person]



Status: Offline
(since 25-01-2009 22:13)
Joined: 15 Nov 2006
Posts: 3391, Topics: 172
Location: Universul meu interior

Reputation: 440.7
Votes: 48

Post Posted: 11-04-2007, 12:26:01 | Translate post to: ... (Click for more languages)

iti trebuie visual basic instalat ca sa poti urma acest tutorial.

...va asigur ca greselile ortografice, ortoepice, de punctuatie, morfosintactice si folosirea inadecvata a unitatilor lexico-semantice imi apartin, mi le asum, dar la scoala sa stiti ca tot nu ma duc!

0 0
  
Back to top
View user's profile Send private message
smeke_14

[Mentally Stable]



Status: Offline
(since 23-05-2007 20:43)
Joined: 23 May 2007
Posts: 1, Topics: None
Location: Romania

Reputation: 88.9
Votes: 4

Post Posted: 23-05-2007, 17:19:35 | Translate post to: ... (Click for more languages)

deci am vazut tutorialu si am facut tot pana aici

,,Apoi din aceeasi fereastra...din dropdown-menu de sus...selectati general...si copiati urmatorul cod ''



nu intzeleg ce sa fac aici (la Apoi din aceeasi fereastra...din dropdown-menu de sus...selectati general...si copiati urmatorul cod )


va rog sa ma ajutati...


ms anticipat

0 0
  
Back to top
View user's profile Send private message
This forum is locked: you cannot post, reply to, or edit topics.   This topic is locked: you cannot edit posts or make replies.    Freakz Forum Index -> Cos de Gunoi -> Trash  
Go to page 1, 2  Next    


The time now is 28-04-2017, 13:07:25
Copyright info

Based on phpBB ro/com

 
 
 





I forgot my password


This message appears only once, so
like us now until it's too late ! :D
x