Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Share] SC MultiSSH Client VB6
#1
[Image: Untitled.png]

Download

Code:
http://www.tusfiles.net/hh5vu655nf1c
[Only registered and activated users can see links Click here to register]
Reply
#2
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!
Reply
#3
Nice Posting Mas Surya thumbsup:
Reply
#4
(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.
Reply
#5
kok pas ane run begini gan??
Show Contentgambar:
[Only registered and activated users can see links Click here to register] | Kebanyakan opini lu setan !
Reply
#6
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
Reply