ForNesia Forum > Coding and Project > VB6 > [SHARE] SC MultiSSH Client VB6
ForNesia Forum > Coding and Project > VB6 > [SHARE] SC MultiSSH Client VB6

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5

[Share] SC MultiSSH Client VB6
suryadewa Offline
NewBie
*********
Administrators
Posts: 346
Threads: 193
Joined: Oct 2013
Reputation:
FCoin: 165.98ƒc
Thanks Received: 7

Legendary ForNesiaExtreme StaffPromoter
#1
01-01-2014, 09:28 PM
[Image: Untitled.png]

Download

Code:
http://www.tusfiles.net/hh5vu655nf1c
[Only registered and activated users can see links Click here to register]
Website Find
Reply
sugetzhu Offline
Banned
Banned
Posts: 69
Threads: 4
Joined: Jan 2014
FCoin: 2ƒc
Thanks Received: 0
#2
02-11-2014, 09: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!
Website Find
Reply
sikampret Offline
SATPAM FNS
Banned
Posts: 163
Threads: 39
Joined: Feb 2014
FCoin: 5.13ƒc
Thanks Received: 1
#3
02-28-2014, 06:42 PM
Nice Posting Mas Surya thumbsup:
Website Find
Reply
Jarwo01 Offline
HunteR
*
HunteR
Posts: 56
Threads: 1
Joined: Apr 2014
Reputation:
FCoin: 2.24ƒc
Thanks Received: 0
#4
04-18-2014, 03:09 AM
(02-11-2014, 09: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.
Website Find
Reply
unity008 Offline
HunteR
*
HunteR
Posts: 36
Threads: 1
Joined: Mar 2014
Reputation:
FCoin: 2ƒc
Thanks Received: 0
#5
04-20-2014, 08:38 PM
kok pas ane run begini gan??
gambar:
[Only registered and activated users can see links Click here to register] | Kebanyakan opini lu setan !
Website Find
Reply
babelpatcher Offline
Banned
Banned
Posts: 103
Threads: 7
Joined: Jun 2014
FCoin: 29ƒc
Thanks Received: 1
#6
01-04-2015, 05: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
Website Find
Reply