[Share] SC MultiSSH Client VB6

***suryadewa*** · 01-01-2014 10:28 PM

Download

Code:

http://www.tusfiles.net/hh5vu655nf1c

~~sugetzhu~~ · 02-11-2014 10:24 PM

Ane udah Uwik-uwik gan tapi pas ane Log-out trus tutup multi ssha-nya kok Btvise ama PF-nya masih aktif ya gan gak ikutan tertutup gitu,
solusinya gan!

~~sikampret~~ · 02-28-2014 07:42 PM

Nice Posting Mas Surya thumbsup:

Jarwo01 · 04-18-2014 04:09 AM

(02-11-2014 10:24 PM)sugetzhu Wrote: Ane udah Uwik-uwik gan tapi pas ane Log-out trus tutup multi ssha-nya kok Btvise ama PF-nya masih aktif ya gan gak ikutan tertutup gitu,
solusinya gan!

tinggal di klill aja pke code ini

Register or Login to see this content

unity008 · 04-20-2014 09:38 PM

kok pas ane run begini gan??

Spoiler: gambar

~~babelpatcher~~ · 01-04-2015 06:09 PM

ane coba share code ane

Code:

Private Sub cmdSSH_Click()

    Dim strRes As String, esteh As String

    Me.cmdSSH.Enabled = False

    If Me.cmdSSH.Caption = "Start SSH" Then

        Me.cmdSSH.Caption = "Stop SSH"

        killssh

        Dim i As Long, sFile As String

        If sshType = 1 Then

            sFile = """" & App.Path & "\ssh\BvSSH.exe"" "

            esteh = "-profile=""" & App.Path & "\ssh\zssh" & i & ".bscp"" -host=" & sshIP & " -port=" & sshPort & " -user=" & sshUN & " -password=" & sshPW & " -loginOnStartup -openterm=n -openSFTP=n -proxy=y -proxyType=HTTP -proxyServer=127.0.0.1 -proxyPort=" & ListeningPort & " -hide=main,popups,trayBSSCP,trayTerm,traySFTP,trayRDP,trayPopups"

            sshID(i) = Shell(sFile & esteh, vbHide)

            If sshClient > 1 Then

                For i = 1 To sshClient

                    esteh = "-profile=""" & App.Path & "\ssh\zssh" & i & ".bscp"" -host=" & sshIP & " -port=" & sshPort & " -user=" & sshUN & " -password=" & sshPW & " -loginOnStartup -openterm=n -openSFTP=n -proxy=y -proxyType=HTTP -proxyServer=127.0.0.1 -proxyPort=" & ListeningPort & " -hide=main,popups,trayBSSCP,trayTerm,traySFTP,trayRDP,trayPopups"

                    sshID(i) = Shell(sFile & esteh, vbHide)

                Next

            End If

        Else

            RegDelKey HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Present", 1, sreg_dword

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Compression", 1, sreg_dword

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "HostName", sshIP, sreg_sz

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PortNumber", sshPort, sreg_dword

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PingInterval", 0, sreg_dword

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PingIntervalSecs", 5, sreg_dword

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "TCPNoDelay", 1, sreg_dword

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "TCPKeepalives", 1, sreg_dword

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Protocol", "ssh", sreg_sz

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyMethod", 3, sreg_dword

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyHost", "127.0.0.1", sreg_sz

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyPort", ListeningPort, sreg_dword

            RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Cipher", "blowfish", sreg_sz

            sFile = App.Path & "\ssh\Plink.exe "

            esteh = "-v -N -C -D " & CStr(1080 + i) & " " & sshUN & "@" & sshIP & "-" & i & " -P " & sshPort & " -pw " & sshPW

            sshID(0) = Shell(sFile & esteh, vbNormalFocus)

            If sshClient > 1 Then

                For i = 1 To sshClient

                    RegDelKey HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Present", 1, sreg_dword

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Compression", 1, sreg_dword

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "HostName", sshIP, sreg_sz

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PortNumber", sshPort, sreg_dword

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PingInterval", 0, sreg_dword

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PingIntervalSecs", 5, sreg_dword

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "TCPNoDelay", 1, sreg_dword

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "TCPKeepalives", 1, sreg_dword

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Protocol", "ssh", sreg_sz

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyMethod", 3, sreg_dword

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyHost", "127.0.0.1", sreg_sz

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyPort", ListeningPort, sreg_dword

                    RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Cipher", "blowfish", sreg_sz

                    esteh = "-v -N -C -D " & CStr(1080 + i) & " " & sshUN & "@" & sshIP & "-" & i & " -P " & sshPort & " -pw " & sshPW

                    sshID(i) = Shell(sFile & esteh, vbNormalFocus)

                Next

            End If

        End If

        If sshClient > 1 Then

            strParam = """" & App.Path & "\Proxifier\Profiles\IDM-Chain.ppx"""

            Shell """" & App.Path & "\Proxifier\Proxifier.exe"" " & strParam, vbHide

        End If

    Else

        killssh

        Me.cmdSSH.Caption = "Start SSH"

    End If

    Me.cmdSSH.Enabled = True

End Sub

Public Sub killssh()

'    Dim i As Long

'    ShellWait "taskkill.exe /F /T /PID " & sshID(i), vbHide

'    If sshClient > 1 Then

'        For i = 1 To UBound(sshID)

'            ShellWait "taskkill.exe /F /T /PID " & sshID(i), vbHide

'        Next

'    End If

    ShellWait "taskkill.exe /F /T /IM ""BvSSH.exe""", vbHide

    If sshClient > 1 Then ShellWait "taskkill.exe /f /t /IM ""Proxifier.exe""", vbHide

    Shell """" & App.Path & "\ssh\openx.exe""", vbHide

    Shell """" & App.Path & "\ssh\openx.exe""", vbHide

End Sub

01-01-2014 10:28 PM	SC MultiSSH Client VB6 #1
*suryadewa* NewBie Posts: 341 Joined: Oct 2013 Reputation: FCoin: 93.00ƒc	Download Code: `http://www.tusfiles.net/hh5vu655nf1c` http://www.suryadewa.com
WwW Find Reply

02-11-2014 10:24 PM	RE: SC MultiSSH Client VB6 #2
~~sugetzhu~~ Banned Posts: 69 Joined: Jan 2014 FCoin: 2.00ƒc	Ane udah Uwik-uwik gan tapi pas ane Log-out trus tutup multi ssha-nya kok Btvise ama PF-nya masih aktif ya gan gak ikutan tertutup gitu, solusinya gan!
WwW Find Reply

02-28-2014 07:42 PM	RE: SC MultiSSH Client VB6 #3
~~sikampret~~ SATPAM FNS Posts: 163 Joined: Feb 2014 FCoin: 5.13ƒc	Nice Posting Mas Surya thumbsup:
WwW Find Reply

04-18-2014 04:09 AM	RE: SC MultiSSH Client VB6 #4
Jarwo01 HunteR Posts: 56 Joined: Apr 2014 Reputation: FCoin: 2.24ƒc	(02-11-2014 10:24 PM)sugetzhu Wrote: Ane udah Uwik-uwik gan tapi pas ane Log-out trus tutup multi ssha-nya kok Btvise ama PF-nya masih aktif ya gan gak ikutan tertutup gitu, solusinya gan! tinggal di klill aja pke code ini Register or Login to see this content Jarwo01, proud to be a member of ForNesia Family since Apr 2014.
WwW Find Reply

04-20-2014 09:38 PM	RE: SC MultiSSH Client VB6 #5
unity008 HunteR Posts: 36 Joined: Mar 2014 Reputation: FCoin: 2.00ƒc	kok pas ane run begini gan?? Spoiler: gambar Facebook \| Kebanyakan opini lu setan !
WwW Find Reply

01-04-2015 06:09 PM	RE: SC MultiSSH Client VB6 #6
~~babelpatcher~~ Banned Posts: 103 Joined: Jun 2014 FCoin: 2.00ƒc	ane coba share code ane Code: Private Sub cmdSSH_Click() Dim strRes As String, esteh As String Me.cmdSSH.Enabled = False If Me.cmdSSH.Caption = "Start SSH" Then Me.cmdSSH.Caption = "Stop SSH" killssh Dim i As Long, sFile As String If sshType = 1 Then sFile = """" & App.Path & "\ssh\BvSSH.exe"" " esteh = "-profile=""" & App.Path & "\ssh\zssh" & i & ".bscp"" -host=" & sshIP & " -port=" & sshPort & " -user=" & sshUN & " -password=" & sshPW & " -loginOnStartup -openterm=n -openSFTP=n -proxy=y -proxyType=HTTP -proxyServer=127.0.0.1 -proxyPort=" & ListeningPort & " -hide=main,popups,trayBSSCP,trayTerm,traySFTP,trayRDP,trayPopups" sshID(i) = Shell(sFile & esteh, vbHide) If sshClient > 1 Then For i = 1 To sshClient esteh = "-profile=""" & App.Path & "\ssh\zssh" & i & ".bscp"" -host=" & sshIP & " -port=" & sshPort & " -user=" & sshUN & " -password=" & sshPW & " -loginOnStartup -openterm=n -openSFTP=n -proxy=y -proxyType=HTTP -proxyServer=127.0.0.1 -proxyPort=" & ListeningPort & " -hide=main,popups,trayBSSCP,trayTerm,traySFTP,trayRDP,trayPopups" sshID(i) = Shell(sFile & esteh, vbHide) Next End If Else RegDelKey HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Present", 1, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Compression", 1, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "HostName", sshIP, sreg_sz RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PortNumber", sshPort, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PingInterval", 0, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PingIntervalSecs", 5, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "TCPNoDelay", 1, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "TCPKeepalives", 1, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Protocol", "ssh", sreg_sz RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyMethod", 3, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyHost", "127.0.0.1", sreg_sz RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyPort", ListeningPort, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Cipher", "blowfish", sreg_sz sFile = App.Path & "\ssh\Plink.exe " esteh = "-v -N -C -D " & CStr(1080 + i) & " " & sshUN & "@" & sshIP & "-" & i & " -P " & sshPort & " -pw " & sshPW sshID(0) = Shell(sFile & esteh, vbNormalFocus) If sshClient > 1 Then For i = 1 To sshClient RegDelKey HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Present", 1, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Compression", 1, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "HostName", sshIP, sreg_sz RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PortNumber", sshPort, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PingInterval", 0, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "PingIntervalSecs", 5, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "TCPNoDelay", 1, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "TCPKeepalives", 1, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Protocol", "ssh", sreg_sz RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyMethod", 3, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyHost", "127.0.0.1", sreg_sz RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "ProxyPort", ListeningPort, sreg_dword RegSet HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\" & sshIP & "-" & i, "Cipher", "blowfish", sreg_sz esteh = "-v -N -C -D " & CStr(1080 + i) & " " & sshUN & "@" & sshIP & "-" & i & " -P " & sshPort & " -pw " & sshPW sshID(i) = Shell(sFile & esteh, vbNormalFocus) Next End If End If If sshClient > 1 Then strParam = """" & App.Path & "\Proxifier\Profiles\IDM-Chain.ppx""" Shell """" & App.Path & "\Proxifier\Proxifier.exe"" " & strParam, vbHide End If Else killssh Me.cmdSSH.Caption = "Start SSH" End If Me.cmdSSH.Enabled = True End Sub Public Sub killssh() ' Dim i As Long ' ShellWait "taskkill.exe /F /T /PID " & sshID(i), vbHide ' If sshClient > 1 Then ' For i = 1 To UBound(sshID) ' ShellWait "taskkill.exe /F /T /PID " & sshID(i), vbHide ' Next ' End If ShellWait "taskkill.exe /F /T /IM ""BvSSH.exe""", vbHide If sshClient > 1 Then ShellWait "taskkill.exe /f /t /IM ""Proxifier.exe""", vbHide Shell """" & App.Path & "\ssh\openx.exe""", vbHide Shell """" & App.Path & "\ssh\openx.exe""", vbHide End Sub
WwW Find Reply

Advertisement