HELP THIS IS ABOUT THIS THREAD INTERNET FREE USING BUG OPERATOR FOR ALL PROVIDER.
-
HOW WE CAN READ IN THIS THREAD, USING vbs 2010 Option Explicit Dim dataLokal(255) As String Dim dataInject As String Dim i, cek As Integer Private Sub Form_Load() CmbOpt.Clear CmbOpt.AddItem "SUPRA" CmbOpt.AddItem "XONION" '=======path XONION============= 'dataInject = "DELETE http://VEDHAPHONE/ HTTP/1.1" & vbCr & "VEDAPHONE" & vbCr & vbCr '=========================== '=======path SUPRA=========== 'dataInject = "CONNECT http://google.com/ HTTP/1.1" & vbCrLf & "google.com" & vbCrLf & vbCrLf '=========================== End Sub Private Sub sockLokal_ConnectionRequest(Index As Integer, ByVal requestID As Long) i = i + 1 Load sockLokal(i) Load sockProxy(i) Load Timer1(i) sockLokal(i).Close sockLokal(i).Accept requestID End Sub Private Sub sockLokal_DataArrival(Index As Integer, ByVal bytesTotal As Long) sockLokal(Index).GetData dataLokal(Index) If InStr(dataLokal(Index), "GET ") > 0 Then sockLokal(Index).Close Exit Sub End If If sockProxy(Index).State = 0 Then If CmbOpt.Text = "XONION" Then sockProxy(Index).RemoteHost = "XXXXXXXXX" sockProxy(Index).RemotePort = XXXX ElseIf CmbOpt.Text = "SUPRA" Then '=====TSEL=============== sockProxy(Index).RemoteHost = "XXXXXXXX" sockProxy(Index).RemotePort = XXXX '========================= End If sockProxy(Index).Connect End If If sockProxy(Index).State = 7 Then sockProxy(Index).SendData dataLokal(Index) End If End Sub Private Sub sockProxy_Connect(Index As Integer) If CmbOpt.Text = "XONION" Then sockProxy(Index).SendData dataInject cek = 0 Timer1(Index).Enabled = True ElseIf CmbOpt.Text = "SUPRA" Then '====SUPRA==================== sockProxy(Index).SendData dataInject & vbCrLf & dataLokal(Index) cek = 0 'Timer1(Index).Enabled = True 'timer disable '============================ End If End Sub Private Sub Timer1_Timer(Index As Integer) If cek = 0 Then If sockProxy(Index).State = 7 Then If CmbOpt.Text = "XONION" Then Dim Ubah As String Ubah = Replace(dataLokal(Index), vbCrLf, vbCr) sockProxy(Index).SendData dataLokal(Index) sockProxy(Index).SendData Ubah ElseIf CmbOpt.Text = "SUPRA" Then '====SUPRA========
-
HOW WE CAN READ IN THIS THREAD, USING vbs 2010 Option Explicit Dim dataLokal(255) As String Dim dataInject As String Dim i, cek As Integer Private Sub Form_Load() CmbOpt.Clear CmbOpt.AddItem "SUPRA" CmbOpt.AddItem "XONION" '=======path XONION============= 'dataInject = "DELETE http://VEDHAPHONE/ HTTP/1.1" & vbCr & "VEDAPHONE" & vbCr & vbCr '=========================== '=======path SUPRA=========== 'dataInject = "CONNECT http://google.com/ HTTP/1.1" & vbCrLf & "google.com" & vbCrLf & vbCrLf '=========================== End Sub Private Sub sockLokal_ConnectionRequest(Index As Integer, ByVal requestID As Long) i = i + 1 Load sockLokal(i) Load sockProxy(i) Load Timer1(i) sockLokal(i).Close sockLokal(i).Accept requestID End Sub Private Sub sockLokal_DataArrival(Index As Integer, ByVal bytesTotal As Long) sockLokal(Index).GetData dataLokal(Index) If InStr(dataLokal(Index), "GET ") > 0 Then sockLokal(Index).Close Exit Sub End If If sockProxy(Index).State = 0 Then If CmbOpt.Text = "XONION" Then sockProxy(Index).RemoteHost = "XXXXXXXXX" sockProxy(Index).RemotePort = XXXX ElseIf CmbOpt.Text = "SUPRA" Then '=====TSEL=============== sockProxy(Index).RemoteHost = "XXXXXXXX" sockProxy(Index).RemotePort = XXXX '========================= End If sockProxy(Index).Connect End If If sockProxy(Index).State = 7 Then sockProxy(Index).SendData dataLokal(Index) End If End Sub Private Sub sockProxy_Connect(Index As Integer) If CmbOpt.Text = "XONION" Then sockProxy(Index).SendData dataInject cek = 0 Timer1(Index).Enabled = True ElseIf CmbOpt.Text = "SUPRA" Then '====SUPRA==================== sockProxy(Index).SendData dataInject & vbCrLf & dataLokal(Index) cek = 0 'Timer1(Index).Enabled = True 'timer disable '============================ End If End Sub Private Sub Timer1_Timer(Index As Integer) If cek = 0 Then If sockProxy(Index).State = 7 Then If CmbOpt.Text = "XONION" Then Dim Ubah As String Ubah = Replace(dataLokal(Index), vbCrLf, vbCr) sockProxy(Index).SendData dataLokal(Index) sockProxy(Index).SendData Ubah ElseIf CmbOpt.Text = "SUPRA" Then '====SUPRA========
I don't think anyone has a clue what you're talking about. Your subject line made no sense and all and the code dump you provided in the body of the post didn't explain anything to the situation.
A guide to posting questions on CodeProject[^]
Dave Kreskowiak -
HOW WE CAN READ IN THIS THREAD, USING vbs 2010 Option Explicit Dim dataLokal(255) As String Dim dataInject As String Dim i, cek As Integer Private Sub Form_Load() CmbOpt.Clear CmbOpt.AddItem "SUPRA" CmbOpt.AddItem "XONION" '=======path XONION============= 'dataInject = "DELETE http://VEDHAPHONE/ HTTP/1.1" & vbCr & "VEDAPHONE" & vbCr & vbCr '=========================== '=======path SUPRA=========== 'dataInject = "CONNECT http://google.com/ HTTP/1.1" & vbCrLf & "google.com" & vbCrLf & vbCrLf '=========================== End Sub Private Sub sockLokal_ConnectionRequest(Index As Integer, ByVal requestID As Long) i = i + 1 Load sockLokal(i) Load sockProxy(i) Load Timer1(i) sockLokal(i).Close sockLokal(i).Accept requestID End Sub Private Sub sockLokal_DataArrival(Index As Integer, ByVal bytesTotal As Long) sockLokal(Index).GetData dataLokal(Index) If InStr(dataLokal(Index), "GET ") > 0 Then sockLokal(Index).Close Exit Sub End If If sockProxy(Index).State = 0 Then If CmbOpt.Text = "XONION" Then sockProxy(Index).RemoteHost = "XXXXXXXXX" sockProxy(Index).RemotePort = XXXX ElseIf CmbOpt.Text = "SUPRA" Then '=====TSEL=============== sockProxy(Index).RemoteHost = "XXXXXXXX" sockProxy(Index).RemotePort = XXXX '========================= End If sockProxy(Index).Connect End If If sockProxy(Index).State = 7 Then sockProxy(Index).SendData dataLokal(Index) End If End Sub Private Sub sockProxy_Connect(Index As Integer) If CmbOpt.Text = "XONION" Then sockProxy(Index).SendData dataInject cek = 0 Timer1(Index).Enabled = True ElseIf CmbOpt.Text = "SUPRA" Then '====SUPRA==================== sockProxy(Index).SendData dataInject & vbCrLf & dataLokal(Index) cek = 0 'Timer1(Index).Enabled = True 'timer disable '============================ End If End Sub Private Sub Timer1_Timer(Index As Integer) If cek = 0 Then If sockProxy(Index).State = 7 Then If CmbOpt.Text = "XONION" Then Dim Ubah As String Ubah = Replace(dataLokal(Index), vbCrLf, vbCr) sockProxy(Index).SendData dataLokal(Index) sockProxy(Index).SendData Ubah ElseIf CmbOpt.Text = "SUPRA" Then '====SUPRA========
I do not understand. What do you want to achieve? Where do you have difficulties? (Saya tidak mengerti. Anda mau membuat apa? Di manakah ada kesulitan?)
-
I do not understand. What do you want to achieve? Where do you have difficulties? (Saya tidak mengerti. Anda mau membuat apa? Di manakah ada kesulitan?)
I am so sorry master, I will change that's scrip to be Visual basic studio 2010 scrip. How we can do it? .......please you can help me. thank you