سلام دوستان
همونطور كه ميدونيد بعضي از دستور ها رو فقط ميشه از run ويندوز اجرا كرد
مثل (ping 192.9.9.3 -t) حالا چجوري ميشه اين دستور رو با يك button كه روي فرمه
و بدون رفتن به run اجرا كرد؟
کد:
Shell "ping 192.9.9.3 -t",vbHide
سلام
خوب حالا اگر بخوايم نتيجه Ping رو متوجه بشيم كه حداقل Timeout شده يا نه چي راهي هست؟
:wink:
خيلي فكر نكنم سخت باشه به همون پورت پينگ يه سري ديتا بفرستيد بايد همون رو برگردونه هالا زمان و تايم اوت شدن رو هم خودتون اندازه بگيريد ديگه
سلام
ببين اين كد به كارت مياد
کد:
Private Type QOCINFO
dwSize As Long
dwFlags As Long
dwInSpeed As Long
dwOutSpeed As Long
End Type
Private Declare Function IsDestinationReachable Lib "SENSAPI.DLL" Alias "IsDestinationReachableA" (ByVal lpszDestination As String, ByRef lpQOCInfo As QOCINFO) As Long
Private Sub Command1_Click()
Dim Ret As QOCINFO
Dim IP As String
Ret.dwSize = Len(Ret)
IP = "80.65.45.21"
If IsDestinationReachable(IP, Ret) = 0 Then
MsgBox "The Destination Cannot Be Reached!"
Else
MsgBox "The Destination Can Be Reached!" + vbCrLf + "The Speed Of Data Coming in From The Destination is " + Format$(Ret.dwInSpeed / 1048576, "#.0") + " Mb/s," + vbCrLf + " And The Speed of Data Sent To the Destination is " + Format$(Ret.dwOutSpeed / 1048576, "#.0") + " Mb/s."
End If
End Sub
سلام
من از كد برنامه بالا استفاده كردم ولي فقط يك مشكل دارم و اونم اينه كه براي يك سري از آي پي ها جواب مثبت ميده در صورتي كه خود ويندوز جواب منفي ميده
:wink:
mehdiyg نوشته است:سلام دوستان
همونطور كه ميدونيد بعضي از دستور ها رو فقط ميشه از run ويندوز اجرا كرد
مثل (ping 192.9.9.3 -t) حالا چجوري ميشه اين دستور رو با يك button كه روي فرمه
و بدون رفتن به run اجرا كرد؟
اين mehdiyg هم بچه ها رو سر كار ميزاره
بچه ها كه جواب مي دن نمي آد بگه مشكلش حل شده
؛ نشده ؛ چه اتفاقي افتاده :!: :roll: