Current time: 05-22-2018, 01:57 AM 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] SC MultiSSH Client VB6

01-01-2014 10:28 PM SC MultiSSH Client VB6
#1


suryadewa Away
NewBie
Administrators
*********

Posts: 341
Joined: Oct 2013

Reputation:

FCoin: 93.00ƒc
[Image: Untitled.png]

Download

Code:
http://www.tusfiles.net/hh5vu655nf1c

http://www.suryadewa.com
02-11-2014 10:24 PM RE: SC MultiSSH Client VB6
#2


sugetzhu Away
Banned
Banned

Posts: 69
Joined: Jan 2014

FCoin: 2.00ƒc
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!
02-28-2014 07:42 PM RE: SC MultiSSH Client VB6
#3


sikampret Away
SATPAM FNS
Banned

Posts: 163
Joined: Feb 2014

FCoin: 5.13ƒc
Nice Posting Mas Surya thumbsup:
04-18-2014 04:09 AM RE: SC MultiSSH Client VB6
#4


Jarwo01 Away
HunteR
HunteR
*

Posts: 56
Joined: Apr 2014

Reputation:

FCoin: 2.24ƒc
(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.
04-20-2014 09:38 PM RE: SC MultiSSH Client VB6
#5


unity008 Away
HunteR
HunteR
*

Posts: 36
Joined: Mar 2014

Reputation:

FCoin: 2.00ƒc
kok pas ane run begini gan??
Spoiler: gambar
[Image: Untitled.jpg]

Facebook | Kebanyakan opini lu setan !
01-04-2015 06:09 PM RE: SC MultiSSH Client VB6
#6


babelpatcher Away
Banned
Banned

Posts: 103
Joined: Jun 2014

FCoin: 2.00ƒc
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




Search thread:


[-]
Advertisement