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]

29 minutes ago, Jos said:

Why without using CMD? 

Jos

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]

2 minutes ago, 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

@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]

1 minute ago, 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

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]

7 minutes ago, Jos said:

Which script ?  Post it!

Jos

@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]

2 minutes ago, 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

 

[TheDcoder]

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

[naru]

1 minute ago, TheDcoder said:

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

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]

2 minutes ago, 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

 

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