Current time: 05-28-2018, 06:48 PM Stay in touch via Twitter Facebook RSS Feed
Ada Baiknya anda baca Peraturan Forum ForNesia Disini Dan Disitu Sebelum Terlambat!
System Registration Forums Mulai Kedepan Sewaktu waktu akan Di Tutup.
Silahkan Dibaca Mengenai Auto Pruning User . Agar tidak ada pertanyaan lagi tentang kehilangan akses forum.



[Share] Source Multi SSH VB6

01-12-2014 08:24 PM Source Multi SSH VB6
#1


varendra Away
ForNesia Family
Registered
*

Posts: 30
Joined: Jan 2014

Reputation:

FCoin: 2.00ƒc
sedikit mau berbagi source code multi ssh vb6
dari pada di kerumurin sarang laba-laba :blush:
Penampakan :
Quote:http://prntscr.com/2io0sg
Quote:http://prntscr.com/2io15z

Download Here : Di Sini Bro
01-13-2014 10:52 AM RE: Source Multi SSH VB6
#2


varendra Away
ForNesia Family
Registered
*

Posts: 30
Joined: Jan 2014

Reputation:

FCoin: 2.00ƒc
(01-12-2014 11:34 PM)heriza07 Wrote:  wew makasih om udah dibagiin dimari wah:

gak nolak cendol sih ane om wah:
01-22-2014 03:05 AM RE: Source Multi SSH VB6
#3


jhony Away
Baru Belajar
Registered
*

Posts: 5
Joined: Jan 2014

Reputation:

FCoin: 2.00ƒc
klo pengen bikin auto reconnect gmn ya gan?
01-04-2015 06:10 PM RE: Source Multi SSH VB6
#4


babelpatcher Away
Banned
Banned

Posts: 103
Joined: Jun 2014

FCoin: 2.00ƒc
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:37 AM RE: Source Multi SSH VB6
#5


Arpra99 Away
FNS Police
Super Moderators
*******

Posts: 1,419
Joined: Jan 2014

Reputation:

FCoin: 13.45ƒc
ForNesia LoversBitcoin DonaturExtreme StaffTrusted PersonLegendary ForNesiaTop Poster
(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 .

Spoiler: Peraturan
[Image: Peraturan.jpg]

[Image: coollogo_com_5514825.gif]
03-06-2015 07:32 AM RE: Source Multi SSH VB6
#6


Va2kurniawan Away
HunteR
HunteR
*

Posts: 24
Joined: Nov 2014

Reputation:

FCoin: 2.00ƒc
Gan Cara Buat IP huntrnya gmna?
binggung kalo di VB6 :(
03-06-2015 04:34 PM RE: Source Multi SSH VB6
#7


SPNJR Away
HunteR
HunteR
*

Posts: 71
Joined: Dec 2014

Reputation:

FCoin: 4.20ƒc
(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?




Search thread:


[-]
Advertisement