Posts: 30
Threads: 6
Joined: Jan 2014
Reputation:
FCoin: 2ƒc
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]
Posts: 30
Threads: 6
Joined: Jan 2014
Reputation:
FCoin: 2ƒc
(01-12-2014, 10:34 PM)heriza07 Wrote: wew makasih om udah dibagiin dimari wah:
gak nolak cendol sih ane om wah:
Posts: 5
Threads: 0
Joined: Jan 2014
Reputation:
FCoin: 2ƒc
klo pengen bikin auto reconnect gmn ya gan?
Posts: 103
Threads: 7
Joined: Jun 2014
FCoin: 2ƒc
ini code ane, siapa tau ada yang butuh
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, 01:14 AM)Reseacher Wrote: Thank Vroh ...........
<< POST DELETED >>
<< PERINGATAN >>
Dibaca dulu Rulesnya om 
Kalau cuman bilang Terimakasih cukup klik tombol Thanks aja om .
Posts: 24
Threads: 0
Joined: Nov 2014
Reputation:
FCoin: 2ƒc
Gan Cara Buat IP huntrnya gmna?
binggung kalo di VB6 :(
Posts: 71
Threads: 3
Joined: Dec 2014
Reputation:
FCoin: 4.2ƒc
(01-04-2015, 05:10 PM)babelpatcher Wrote: ini code ane, siapa tau ada yang butuh 
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 
padahal udah muter2 kaga nemu2 versi plink.
btw, pake component tambahan gk ini om?
|