یه کد میخوام که یه صفحه Explorer باز کنه

[neo2]

سلام. بچه ها یه کدی چیزی نیاز دارم که وقتی یه فایل exe رو اجرا می کنید ( درست مثل تروجان ها که یه سرور و یه فایل اگزه دارن )

با همون سیستم تروجان بودن بتونی یه صفحه اکسپلورر یا یه نرم افزار رو اجرا کنی.

شما همچین چیزی رو سراغ دارید. ترجیحا سورس باشه به درد همه می خوره. مرسی

 

[neo2]

SubSeven یادتون هست ؟ یه همچین چیزی مورد نیازه. فکر کنم سورس اینجور برنامه ها هم گیر بیاد.

 

[neo2]

آقای littlerabbit خبری از شما هم نشد که !! ؟؟

 

[saeedsmk]

سلام
خوب هستید

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE", vbNormalFocus

در این کد c:\ درایوی است که ویندوز در ان نصب است
شما برای بدست اوردن محل پوشه program files میتونید از api ها نیز استفاده کنید
اگر تو گوگل سرچ کنید کدش فراونه

امیدوارم کمک کنه

 

[neo2]

ممنونم. راستی من یه چیزی شبیه این ساب سون می خوام شما می تونید یه همچین سوس ای گیر بیارید ؟

یا همین API ای که گفتید, یه نمونه اش رو پیدا کنید؟ .

 

[neo2]

اگه بتونبد تو ساختن این برنامه کمک کنید یه جورایی جبران می کنیم.. یه برنامه خیلی ساده هست واسه شما ها.

 

[shankimout]

من یه نمونه تروجان گزاشتم . تو امضام هم هست . ببین بدردت میخوره ؟ اینچیزارو باید از ایرانویچ گیر بیاری .

 

[saeedsmk]

سلام
خوب هستید
برای سورس یه سری به iranvig.com بزنید
سورس های زیادی توش هست


امیدوارم کمک کنه

 

[neo2]

من یه نمونه تروجان گزاشتم . تو امضام هم هست . ببین بدردت میخوره ؟ اینچیزارو باید از ایرانویچ گیر بیاری .

تو امضات نبود !!! میشه لطف کنی واسم بفرستیش ؟:happy:

 

[saeed_vb]

سلام
اینم هست

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Private Sub CmdRun_Click()
ShellExecute Me.hwnd, vbNullString, "wwww.yahoo.com", vbNullString, "C:\", SW_SHOWNORMAL
End Sub​

موفق باشید

 

[neo2]

آهان. مرسی. الان اومده تو امضات

 

[neo2]

سلام
اینم هست

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Private Sub CmdRun_Click()
ShellExecute Me.hwnd, vbNullString, "wwww.yahoo.com", vbNullString, "C:\", SW_SHOWNORMAL
End Sub​

موفق باشید

مرسی. دست شما هم درد نکنه.