نوشتن در CMD

[vB.N3T]

سلام همراهان همیشگی :قلب:

دوستان میخواستم بیبینم تو ویژوال چیکونه میتونم تو cmd بنویسیم
مثلا یه تکس باشه وقتی توش زدم cmd محیط داس باز بشه

[محسن واژدی]

سلام علیکم
اگر منظور این است که آیا میتوان از طریق وی بی دستور را به cmd ارسال کرد بله این امکان وجود دارد، طبق الگوی زیر:
Shell "cmd /c command"

بجای command دستور مورد نظر نوشته میشود

موفق باشید

[ژوپیتر]

'================================================= =======
' API declaration
'================================================= =======
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

Private Sub Form_Load()
Dim sFile As String
Dim sCommand As String
Dim sWorkDir As String

sFile = "command" 'The file to execute
sCommand = "cd C:\windows" 'Command line parameters
sWorkDir = "C:\" 'The working directory

ShellExecute hwnd, "open", sFile, sCommand, sWorkDir, 1
End Sub

[vB.N3T]

درسته کامند باز شد

نمیشه یه جوری بود وقتی تو تکس میزدم regedit رجیستری باز میشد

[returnx]

برای باز کردن رجیستری به این روشی که شما می خواید میتونید از کد زیر استفاده کنید:

If Text1.Text = "regedit" Then
Shell "regedit.exe", vbNormalFocus
End If

[vB.N3T]

من با این دستور کامند رو باز کردم


Private Sub Command1_Click()
If Text1.Text = "cmd" Then

Shell "cmd.exe", vbNormalFocus

End If
End Sub


حالا اگه بخواهم تو وی بی تو کامند بنویسم چی طور میشه
مثلا

ping www.yahoo.com

[محسن واژدی]

من با این دستور کامند رو باز کردم


Private Sub Command1_Click()
If Text1.Text = "cmd" Then

Shell "cmd.exe", vbNormalFocus

End If
End Sub


حالا اگه بخواهم تو وی بی تو کامند بنویسم چی طور میشه
مثلا

ping www.yahoo.com (http://www.yahoo.com)


در مورد ارسال دستور به cmd همانگونه که قبلا" در پست 2 اشاره شده از دستور زیر استفاده کنید:
Shell "cmd.exe /c del c:\1.txt", vbNormalFocus

موفق باشید

[vB.N3T]

ممنون میشم <a href و target="_blank" رو توضیح بدید

[محسن واژدی]

ببخشید چون بنده از آدرس وبسایت در کد نمونه استفاده کرده بودم سایت برنامه نویس بهمشون ریخته بود، نمونه را تغییر دادم درست شد

موفق باشید

[vB.N3T]

درسته ایا امکان داره من بتونم از یه کلاینت تو یه شبکه محلی بتونم برای سرور دستور برفستم مثلا از کلاینت بتونم داخل cmd دستور ping رو برای سرور ارسال کنم؟؟؟

[Mr'Jamshidy]

چرا نشه ؟
اول از همه باید کار کردن با شبکه رو تو ویبی بلد باشی که با کامپوننت Microsoft WinSock Control 6.0 این کار رو میتونی انجام بدی

بعد مثلا از طریق Server میای این دستور رو برای Client میفرستی
Execute CMD.EXE /C PING 4.2.2.4
حالا میای تو Client مینویسی


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data, vbString
If Left(Data, 8) = "Execute " Then
Shell Mid(Data, 9)
End If
End Sub


البته این فقط یک آموزشه و شما میتونی از هر نوع کد دیگه ای استفاده کنی

[vB.N3T]

میشن بدون این که پشت سرور بشینی براش دستور فرستاد؟ یه جوری دورش زد

[Mr'Jamshidy]

من منظورتون رو متوجه نشدم اما اگر منظورتون اینه که سرور به صورت اتوماتیک کد بفرسته دیگه اون مربوط میشه به برنامه ای که نوشتید!

اما اگر منظورتون رو بد متوجه شدم سوالتون رو بهتر مطرح کنید تا بتونم کمک کنم

[vB.N3T]

مثلا امکان این هست که ما یه برنامه بنویسیم که وقتی اجرا کردیم تو کلاینت یه دستور مشخص رو به cmd سرور وارد کنیم و اجرا بشه

[Mr'Jamshidy]

آره این امکانش هست

همه مراحل مثل قبل با این تفاوت که شما باید تو Form_Load کد مربوط به اتصال و ارسال رو بنویسی

[vB.N3T]

میتونید یه منبع برای برنامه نویسی تحت شبکه معرفی کنید یا نمونه کد ها خلاصه هر چی که لازمه ؟ ؟ مثلا یه عکس رو بزاری بک گراند سیستم های شبکه از رو یه کلاینت

[Mr'Jamshidy]

ببین به دردت میخوره