Connect/Disconnect DialUp Internet Without CMD

[naru]

its possible to Connect/Disconnect my DialUp internet connection without using CMD ?
If yes, How to it ?

[Jos]

Why without using CMD? 

Jos

[Gianni]

?? maybe this:

ShellExecute("rasdial", "/disconnect")

 

[naru]

  On 7/23/2017 at 10:17 AM, Jos said:

Why without using CMD? 

Jos

Expand  

CMD takes long time to connect/Disconnect

[Jos]

What does that mean?   CMD doesn't take much more time that milliseconds, so what exactly are you running that takes times?

Jos

[naru]

  On 7/23/2017 at 10:50 AM, Jos said:

What does that mean?   CMD doesn't take much more time that milliseconds, so what exactly are you running that takes times?

Jos

Expand  

@Jos
Can i post my question/answer in hindi beacause i don't understand english very well

[Jos]

No as that will not mean  anything to me and we want  to keep this forum English. I am Dutch so English isn't my native language either.

Jos

[naru]

  On 7/23/2017 at 10:56 AM, Jos said:

No as that will not mean  anything to me and we want  to keep this forum English. I am Dutch so English isn't my native language either.

Jos

Expand  

Okk @Jos sir
i am create script for disconnect my internet then suddenly connect my internet Using Rasdial command, but when disconnect is proccesing connect command run but not connecting beacoz disconnect command already in progress then manualy not connecting my internet until i restart my computer

[Jos]

Which script ?  Post it!

Jos

[naru]

  On 7/23/2017 at 11:08 AM, Jos said:

Which script ?  Post it!

Jos

Expand  

@Jos
Please wait i am busy in my onther work
sorry for that

[naru]

@Jos
Run("rasdial /disconnect")
Run("rasdial Internet")

[TheDcoder]

Run("rasdial /disconnect", @ScriptDir, @SW_HIDE)
Run("rasdial Internet", @ScriptDir, @SW_HIDE)

 

[naru]

  On 7/23/2017 at 12:20 PM, TheDcoder said:

Run("rasdial /disconnect", @ScriptDir, @SW_HIDE)
Run("rasdial Internet", @ScriptDir, @SW_HIDE)

@TheDcoder
after disconnect it was not connecting
When connected then run script only disconnect
when disconnected then run script only connect

Expand  

 

[TheDcoder]

I don't know how rasdial works, I have only showed you the example to hide the CMD window

[naru]

  On 7/23/2017 at 12:31 PM, TheDcoder said:

I don't know how rasdial works, I have only showed you the example to hide the CMD window

Expand  

Okk Thanks

[Trong]

If _IsInternetConnected() Then 
    Run("rasdial /disconnect", "", @SW_HIDE) ; When connected then disconnect
Else
    RunWait("rasdial Internet", "", @SW_HIDE) ; when disconnected then connect
EndIf


Func _IsInternetConnected()
    Local $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')
    If @error Then Return SetError(1, 0, 0)
    Return ($aReturn[0] = 0)
EndFunc   ;==>_IsInternetConnected

 

[naru]

  On 7/23/2017 at 12:34 PM, VIP said:

If _IsInternetConnected() Then 
    Run("rasdial /disconnect", "", @SW_HIDE) ; When connected then disconnect
Else
    RunWait("rasdial Internet", "", @SW_HIDE) ; when disconnected then connect
EndIf


Func _IsInternetConnected()
    Local $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')
    If @error Then Return SetError(1, 0, 0)
    Return ($aReturn[0] = 0)
EndFunc   ;==>_IsInternetConnected

 

Expand  

Thanks @VIP
But its Working like

Run("rasdial /disconnect", @ScriptDir, @SW_HIDE)
Run("rasdial Internet", @ScriptDir, @SW_HIDE)

I Need Script for
Disconnect internet for 1 second

Explain : Connect immediately after disconnecting the internet
If not connected then only connect

[Gianni]

??? insert a pause between disconnection  & reconnection ?

Run("rasdial /disconnect", @ScriptDir, @SW_HIDE)
Sleep(5000) ; pause 5 seconds
Run("rasdial Internet", @ScriptDir, @SW_HIDE)

 

[Trong]

It's beyond my reach!
If you want to disconnect in just 1 second, you can quickly remove the dial-up modem plugged in to your computer!

This script will help keep you connected:

RunWait("rasdial /disconnect", "", @SW_HIDE) ; Stop connect from start
Sleep(1000)
RunWait("rasdial Internet", "", @SW_HIDE) ; Connect again

Global $iError = 0, $iMaxErrorToRestartConnect = 10

While 1
    If Not _IsInternetConnected() Then
        $iError += 1
        RunWait("rasdial Internet", "", @SW_HIDE)
        If $iError > $iMaxErrorToRestartConnect Then RunWait("rasdial /disconnect", "", @SW_HIDE)
    EndIf
    Sleep(1000)
WEnd

Func _IsInternetConnected()
    Local $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')
    If @error Then Return SetError(1, 0, 0)
    Return ($aReturn[0] = 0)
EndFunc   ;==>_IsInternetConnected

 

[Trong]

Forgot restart error:

RunWait("rasdial /disconnect", "", @SW_HIDE) ; Stop connect from start
Sleep(1000)
RunWait("rasdial Internet", "", @SW_HIDE) ; Connect again

Global $iError = 0, $iMaxErrorToRestartConnect = 10

While 1
    If Not _IsInternetConnected() Then
        $iError += 1
        RunWait("rasdial Internet", "", @SW_HIDE)
        If $iError > $iMaxErrorToRestartConnect Then
            RunWait("rasdial /disconnect", "", @SW_HIDE)
            $iError = 0
            Sleep(5000)
        EndIf
    EndIf
    Sleep(1000)
WEnd

Func _IsInternetConnected()
    Local $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')
    If @error Then Return SetError(1, 0, 0)
    Return ($aReturn[0] = 0)
EndFunc   ;==>_IsInternetConnected