اجرا كردن دستور ping با يك button

[mehdiyg]

سلام دوستان
همونطور كه ميدونيد بعضي از دستور ها رو فقط ميشه از run ويندوز اجرا كرد
مثل (ping 192.9.9.3 -t) حالا چجوري ميشه اين دستور رو با يك button كه روي فرمه
و بدون رفتن به run اجرا كرد؟

[amirjan]

کد:

Shell "ping 192.9.9.3 -t",vbHide

[mRizvandi]

سلام

خوب حالا اگر بخوايم نتيجه Ping رو متوجه بشيم كه حداقل Timeout شده يا نه چي راهي هست؟
:wink:

[ha_60]

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

[arashrj]

سلام

ببين اين كد به كارت مياد

کد:

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

[mRizvandi]

سلام

من از كد برنامه بالا استفاده كردم ولي فقط يك مشكل دارم و اونم اينه كه براي يك سري از آي پي ها جواب مثبت ميده در صورتي كه خود ويندوز جواب منفي ميده
:wink:

[Iron_Fist]

سلام دوستان
همونطور كه ميدونيد بعضي از دستور ها رو فقط ميشه از run ويندوز اجرا كرد
مثل (ping 192.9.9.3 -t) حالا چجوري ميشه اين دستور رو با يك button كه روي فرمه
و بدون رفتن به run اجرا كرد؟

اين mehdiyg هم بچه ها رو سر كار ميزاره
بچه ها كه جواب مي دن نمي آد بگه مشكلش حل شده
؛ نشده ؛ چه اتفاقي افتاده :!: :roll: