Belajar Jadi Preakerrrrrrrrr Ala VB6

Mungkin Akhir Akhir ini banyak sekali posting posting yang berkaitan dengan Trik trik gratis , dan aplikasinya sudah di bungkus dengan sedemikian rupa , dan tool tersebut langsung bisa di pake , dan koneksi internet langsung bisa gratis ,

Tapi disini tidak pernah di perlihatkan bagaimana cara membuat tool tersebut ? why ?
karena sekolahnya lebih mahal dari sarjana , begitu pow ?
Haissssssssssssssssh >.<
atos kata²mu bos

karena pada kenyataannya seperti itu , dan disini saya pengen bahas pembuatan tool tersebut
ini digunakan sebagai contoh , bukan sebagai tool ea bos ,
ahihihi

'latihan bikin replacement
'Create On 07 April 2013
'Create By http://nifqi18.blogspot.com
'This Code For Example to you

' Component yang di butuhkan adalah winsock control dan RightTextBox

Enum ColourTypes
    intInfo = &H8000&
    intInbound = vbBlue
    intOutbound = vbRed
    intWSError = vbBlack
End Enum
Option Explicit
Dim anu() As String
Dim i As Long
Private Sub Command1_Click()
anu() = Split(txtIP.Text, ":")

If Command1.Caption = "&Start" Then
Command1.Caption = "&Stop"
    If anu(0) = "" Or Val(txtPort.Text) = 0 Then
        addtextRtbin "Cannot Connect To port " & txtPort.Text, intInfo
    End If
    
    socklisten.LocalPort = Val(txtPort.Text)
    socklisten.Listen
    addtextRtbin "Listen To Port " & txtPort.Text, intInfo
ElseIf Command1.Caption = "&Stop" Then
Command1.Caption = "&Start"
    socklisten.Close
    InputTxt.SelText = "Stop " & txtPort.Text
End If

End Sub
Sub addtextRtbin(strText As String, intColour As ColourTypes)
If Right$(strText, 2) <> vbCrLf Then strText = strText & vbCrLf
Dim intPrvLen As Long
intPrvLen = Len(InputTxt.Text)
InputTxt.SelStart = intPrvLen + 1
InputTxt.SelText = strText
InputTxt.SelStart = intPrvLen
InputTxt.SelLength = Len(strText)
InputTxt.SelColor = intColour
InputTxt.SelStart = Len(InputTxt.Text) + 1

End Sub
Sub addtextRtbin1(strText As String, intColour As ColourTypes)
If Right$(strText, 2) <> vbCrLf Then strText = strText & vbCrLf
Dim intPrvLen As Long
intPrvLen = Len(rtbGet.Text)
rtbGet.SelStart = intPrvLen + 1
rtbGet.SelText = strText
rtbGet.SelStart = intPrvLen
rtbGet.SelLength = Len(strText)
rtbGet.SelColor = intColour
rtbGet.SelStart = Len(InputTxt.Text) + 1

End Sub

Private Sub sockin_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim strData As String

sockin(Index).GetData strData
sockout(Index).SendData strData
addtextRtbin1 strData & "'", intInbound
End Sub

Private Sub socklisten_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
anu() = Split(txtIP.Text, ":")
addtextRtbin "Connection requested, connecting to server...", intInfo
i = FindNewIndex()

sockout(i).RemoteHost = anu(0)
sockout(i).RemotePort = Val(anu(1))
sockout(i).Connect

Do
DoEvents
Loop Until sockout(i).State = sckConnected
sockin(i).Accept requestID
addtextRtbin "Allowed connection to " & sockin(i).RemoteHostIP, intInfo
DoEvents

End Sub
Function FindNewIndex() As Integer

For i = 1 To sockin.UBound
    If sockin(i).State = 0 Then
        FindNewIndex = i
        Exit Function
    End If
Next
    
i = sockin.UBound + 1
Load sockin(i)
Load sockout(i)
FindNewIndex = i
End Function

Private Sub sockout_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim data As String
sockout(Index).GetData data, vbString
sockin(Index).SendData data
If Right$(data, 2) = vbCrLf Then data = Left$(data, Len(data) - 2)
addtextRtbin "The server sent '" & data & "'", intOutbound
End Sub

nah di atas codednyaaaaaaaaaaaaaa silahkan di rangkai sendiri :P