Error message: Expected Line number . .

[natasharose]

Hi,

I am new to VB and have run into an error message and I am not sure what the problem is ... I am trying to use VB to open up an SSH tunnel ...

the error message is : "Expected Line number, label statement or end of statement


Here is the code ... any help would be appreciated .. cheers, Natasha



Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ()
ByVal hwnd As Long, _
ByVal lpszOp As String, _
ByVal lpszFile As String, _
ByVal lpszParams As String, _
ByVal lpszdir As String, _
ByVal FsShowCmd As Long)
As Long



Private Sub Form_Load()
ShellExecute Me.hWnd, "Open", "C:/plink.exe", "-ssh"
-l tunnel -pw Cyber4me -L -batch 192.168.10.25", "c:\",
0
MsgBox "Tunnel Open!"

End Sub

[iburyak]

Try this:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 
 
 
Private Sub Form_Load()
ShellExecute Me.hwnd, "Open", "C:/plink.exe", "-ssh -l tunnel -pw Cyber4me -L -batch 192.168.10.25", "c:\", 0
MsgBox "Tunnel Open!"
 
End Sub

Good Luck.

[natasharose]

Hi Thanks for the response .. I can get the code to compile now without any errors. When I run the script, I see the "tunnel open" message box ... I click okay and then see a blank forms page ?? IS there something that I am missing, as to why the tunnel would not be opening ?

I replaced the plink.exe with putty.exe just to see if putty would lanuch and it does ... so I am not sure why plink would not be opening the tunnel ... thanks again ..
Natasha

Try this:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 
 
 
Private Sub Form_Load()
ShellExecute Me.hwnd, "Open", "C:/plink.exe", "-ssh -l tunnel -pw Cyber4me -L -batch 192.168.10.25", "c:\", 0
MsgBox "Tunnel Open!"
 
End Sub

Good Luck.

[iburyak]

Unfortunately I don't know those EXEs you have to try execute the same statement with all parameters from DOS prompt and see if any errors will show up.


Sorry, not sure how to help you here..... :)

[iburyak]

Don't you think you should change a backslash here?

From
C:/plink.exe
to
C:\plink.exe

[natasharose]

Hi ... I already changed the backslash ... I alredy went into DOS and ran the plink command .. this is just a command line version of putty .... it works from DOS ..

I think the error is something I am not doing in VB. I just started using VB, so that is probably the issue .. I simply went into VB and started writing the code ..

When I run the script I am just getting a blank form1 page ... Is there something that I need to create to get my output to show-up in VB ? thanks for your advise ... cheers,

N

Don't you think you should change a backslash here?

From
C:/plink.exe
to
C:\plink.exe

[iburyak]

In this line:

ShellExecute Me.hwnd, "Open", "C:\plink.exe", "-ssh -l tunnel -pw Cyber4me -L -batch 192.168.10.25", "c:\", 0

change 0 to 1

ShellExecute Me.hwnd, "Open", "C:\plink.exe", "-ssh -l tunnel -pw Cyber4me -L -batch 192.168.10.25", "c:\", 1

Try to execute this way.

[natasharose]

It worked ... thanks so much ....

Natasha

In this line:

ShellExecute Me.hwnd, "Open", "C:\plink.exe", "-ssh -l tunnel -pw Cyber4me -L -batch 192.168.10.25", "c:\", 0

change 0 to 1

ShellExecute Me.hwnd, "Open", "C:\plink.exe", "-ssh -l tunnel -pw Cyber4me -L -batch 192.168.10.25", "c:\", 1

Try to execute this way.

[iburyak]

I think it worked before too. You just didn't see it.
Now by changing parameter 0 to 1 you were able to see that it does work.
0 - makes application run on a background.


I am glad it is working now.
Good Luck.

Irina.

[natasharose]

Hi Irina,

Thanks again for your help yesteray. I am now trying to include the option to close the SSH tunnel. I can get the following code to compile with no errors, but I get no output .... Could you have a look at this to see if I am missing something .. maybe an API declaration or something ... Yesterday I was at least getting the "open tunnel" box to display before I made the changes you suggested ... but now ... I can complile the code and then nothing ...

thanks,

Natasha

Option Explicit
 
Dim si As SHELLEXECUTEINFO
 
Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" _
  (si As SHELLEXECUTEINFO) As Long
 
 
Private Declare Function TerminateProcess Lib "kernel32" (ByVal _
   hProcess As Long, ByVal uExitCode As Long) As Long
 
 
Private Type SHELLEXECUTEINFO
  cbSize As Long
  fMask As Long
  hwnd As Long
  lpVerb As String
  lpFile As String
  lpParameters As String
  lpDirectory As String
  nShow As Long
  hInstApp As Long
  lpIDList As Long
  lpClass As String
  hkeyClass As Long
  dwHotKey As Long
  hIcon As Long
  hProcess As Long
End Type
 
 
 
 
 
Private Sub cmdClose_Click()
    Dim exitCode As Long
    If TerminateProcess(si.hProcess, exitCode) <> 0 Then
        CloseHandle (si.hProcess)
        MsgBox "Tunnel Closed!"
    End If
End Sub
 
Private Sub cmdOpen_Click()
    si.cbSize = Len(si)
    si.fMask = SEE_MASK_NOCLOSEPROCESS
    si.hwnd = frmMain.hwnd
    si.lpVerb = "open"
    si.lpFile = "c:\plink.exe"
    si.lpParameters = "-ssh -l tunnel -pw Cyber4me 192.168.10.25", "c:\", 1
    si.lpDirectory = "c:\"
    si.nShow = SW_HIDE
 
 
 
    If ShellExecuteEx(si) Then
        MsgBox "Tunnel Open!"
    Else
        MsgBox "Opening Failed!"
    End If
End Sub

[iburyak]

Look at this line:

si.lpParameters = "-ssh -l tunnel -pw Cyber4me 192.168.10.25", "c:\", 1

, 1 - is not a part of parameters passed to exe.
It is the last parameter in ShellExecute Function which is nShowCmd = 1 the same as SW_SHOWNORMAL
See
http://msdn2.microsoft.com/en-us/library/ms647732.aspx

Good Luck.

[Killer42]

si.lpParameters = "-ssh -l tunnel -pw Cyber4me 192.168.10.25", "c:\", 1

That raises an interesting question. What do you get when you assign two or three values like this, separated by commas, to a string? I would have expected a compile error.

I'll have to try it sometime.

[iburyak]

That raises an interesting question. What do you get when you assign two or three values like this, separated by commas, to a string? I would have expected a compile error.

I'll have to try it sometime.

I have to stop putting my 5 cents everywhere...
It gets people confused... :)