ForNesia Family

Full Version: Source Multi SSH VB6
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
sedikit mau berbagi source code multi ssh vb6
dari pada di kerumurin sarang laba-laba :blush:
Penampakan :
Quote:[Only registered and activated users can see links Click here to register]
Quote:[Only registered and activated users can see links Click here to register]

Download Here : [Only registered and activated users can see links Click here to register]
(01-12-2014, 11:34 PM)heriza07 Wrote: [ -> ]wew makasih om udah dibagiin dimari wah:

gak nolak cendol sih ane om wah:
klo pengen bikin auto reconnect gmn ya gan?
ini code ane, siapa tau ada yang butuh Smile

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
(02-27-2015, 02:14 AM)Reseacher Wrote: [ -> ]Thank Vroh ...........

<< POST DELETED >>

<< PERINGATAN >>
Dibaca dulu Rulesnya om pawpaw
Kalau cuman bilang Terimakasih cukup klik tombol Thanks aja om .

Show ContentPeraturan:
Gan Cara Buat IP huntrnya gmna?
binggung kalo di VB6 :(
(01-04-2015, 06:10 PM)babelpatcher Wrote: [ -> ]ini code ane, siapa tau ada yang butuh Smile

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

wah udah ada yg share ternyata, terlewatkan ternyata buahaha
padahal udah muter2 kaga nemu2 versi plink.
btw, pake component tambahan gk ini om?