Visual Basic

6-Apr-06 6:35

Nothing by that name comes with VB.NET or the .NET Framework. This has to be a third party control. You might want to try a little Google search for ubutton[^].

Dave Kreskowiak
Microsoft MVP - Visual Basic

Deployment problem?

mr_123455-Apr-06 16:40

5-Apr-06 16:40

I have a VB.NET Application that consumes a webMethods web service. This web service is called over https. I can successfully call the web service in all instances (dev, test, prod, & dr) on my development machine. When I try to deploy the exe (this is the only thing created in the bin directory) to other machines I am getting the following error:

The underlying connection was closed: Could not establish secure channel for SSL/TLS. Inner Exception: The function completed successfully, but must be called again to complete the context

I have installed all the certs on the non development machines, but still receive this error.

Is this a deployment issue?
Is this a certificate issue?
Can anyone point me in the right direction to fix this problem?

Thanks in Advance.
Mike

Dave Kreskowiak6-Apr-06 6:29

6-Apr-06 6:29

Well, I haven't done anything with secured WebServices yet, but my first guess would be that your not supplying a correct Certificate. You might also be missing the CA's certificate. Can you test the web service methods directly out of IE on these machines?

Building Secure ASP.NET Applications: Authentication, Authorization, and Secure Communication[^]

Dave Kreskowiak
Microsoft MVP - Visual Basic

Dave Kreskowiak6-Apr-06 6:31

6-Apr-06 6:31

mr_1234519-Apr-06 15:25

19-Apr-06 15:25

I finally got some time do to more testing. I was able to pull these sites up uinsg internet explorer.

But I noticed the following which seems odd.

On Windows 2000 machine I can call my development instance (no security or certs)

On XP SP1 at work the same code gives an 503 Internet Error Service Unavailable

On XP SP2 at home (logged in using VPN) code works fine.

This is really going to become a problem, since they are upgrading my machine at work and I might not be able to test any longer from my testing tool. To make matters worse I am moving to a different position and would like to have this working before I move (If I could only find the time).

Any ideas? My development Web Service runs on port 5595 on a webMethods Integration Server. If my company has shut down communication of port 5595 for XP machines I shouldn't be able to get there from IE, right?

Mike Lasseter

Dave Kreskowiak19-Apr-06 17:59

19-Apr-06 17:59

mr_12345 wrote:
If my company has shut down communication of port 5595 for XP machines I shouldn't be able to get there from IE, right?

Correct, but it wouldn't make any difference which O/S your machine is running. After that, I'm not real clear on what machine is where and on what machine the web service is running and where that is.

Dave Kreskowiak
Microsoft MVP - Visual Basic

mr_1234520-Apr-06 3:11

20-Apr-06 3:11

OK. Let me try to make it clearer.

Web Service runs on webMethods B2B Integration Server on port 5595. Call it eai2:5595. This box does not need any certs to connect to it.

Client (Win2000) Calling web service on eai2:5595 works with out a problem.

Client (XP SP 1) Calling web service on eai2:5595 gives me the following error:
The request failed with HTTP status 503: Service Unavailable.

Client (XP SP 2) Calling web service on eai2:5595 gives me the following error: Request for the permission of type System.Net.WebPermission .... failed

Hope this helps.

Mike Lasseter

mr_1234520-Apr-06 3:53

Implement a command using VB6

20-Apr-06 3:53

Dave,

I got the problem figured out. The problem was in the machine.config file. The proxy setting on the XP SP1 machines <proxy usesystemdefault=""> was set to true. I changed it to default and it now works. I also installed the certs on the XP SP1 machine for connecting to test, prod, and dr. And all calls work like a champ.

Thanks for your help.

Mike Lasseter

Chatura Dilan5-Apr-06 15:23

5-Apr-06 15:23

I have created a .class file by using java. I can execute it in the command prompt.
like this

E:\Pro Languages\Java\Test1>set path = D:\Program Files\Java\jdk1.5.0_06
E:\Pro Languages\Java\Test1>java MyApp

I expect to create a small & simple EXE file, to implement above commands. I do not like to use VB.Net because I have to install .Net framework to computers which have java only. Therefore, I decided to use VB6.

I have three questions.

1. How to implement above commands by using VB6 Confused | :confused:

2. Do I need to install VB6 to computers (which do not have VB6), before executing that simple EXE file Confused | :confused:

3. Are there any other ways to do it Confused | :confused:

Never mind, if you can answer atleast one question Smile | :)

Thank You,

Regards,

Chatura Dilan

If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.

Christian Graus5-Apr-06 16:05

Christian Graus

5-Apr-06 16:05

Does VB6 offer ShellExecute ? Why don't you use C++ ? Then you can just call ShellExecute and be done with it.

If all you want to do is run the app, a batch file is another solution.

Christian Graus - Microsoft MVP - C++

Chatura Dilan5-Apr-06 17:01

5-Apr-06 17:01

Yes,VB6 offers ShellExecute. I have no idea about ShellExecute. Here is an example which I found in MSDN.
Clicking the command1, but I can go to URL with the default web browser. I need your support to change it according to my question.

Private Declare Function ShellExecute _<br />
                            Lib "shell32.dll" _<br />
                            Alias "ShellExecuteA" ( _<br />
                            ByVal hwnd As Long, _<br />
                            ByVal lpOperation As String, _<br />
                            ByVal lpFile As String, _<br />
                            ByVal lpParameters As String, _<br />
                            ByVal lpDirectory As String, _<br />
                            ByVal nShowCmd As Long) _<br />
                            As Long<br />
<br />
Private Sub Command1_Click()<br />
   Dim r As Long<br />
   r = ShellExecute(0, "open", "http://www.microsoft.com", 0, 0, 1)<br />
End Sub

Regards,

Chatura Dilan

If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.

Chatura Dilan5-Apr-06 18:16

5-Apr-06 18:16

Batch file works well,
but I cannot assign an icon to the batch file.
Therefore I run the batch file by creating an EXE file, like this

Private Declare Function ShellExecute _<br />
                            Lib "shell32.dll" _<br />
                            Alias "ShellExecuteA" ( _<br />
                            ByVal hwnd As Long, _<br />
                            ByVal lpOperation As String, _<br />
                            ByVal lpFile As String, _<br />
                            ByVal lpParameters As String, _<br />
                            ByVal lpDirectory As String, _<br />
                            ByVal nShowCmd As Long) _<br />
                            As Long<br />
<br />
Private Sub Form_Load()<br />
 Dim r As Long<br />
   r = ShellExecute(0, "open", "E:\Pro Languages\Java\Test1\MyApp.bat", 0, 0, 1)<br />
End<br />
End Sub

Is there a way to execute the command by using EXE file only (without the batch file)?

Regards,

Chatura Dilan

If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.

Christian Graus5-Apr-06 18:18

Christian Graus

5-Apr-06 18:18

Take the commands out of the batch file and put them in your VB calls to shellexecute.

Christian Graus - Microsoft MVP - C++

Chatura Dilan5-Apr-06 20:34

5-Apr-06 20:34

I tried this,

Private Declare Function ShellExecute _<br />
                            Lib "shell32.dll" _<br />
                            Alias "ShellExecuteA" ( _<br />
                            ByVal hwnd As Long, _<br />
                            ByVal lpOperation As String, _<br />
                            ByVal lpFile As String, _<br />
                            ByVal lpParameters As String, _<br />
                            ByVal lpDirectory As String, _<br />
                            ByVal nShowCmd As Long) _<br />
                            As Long<br />
<br />
<br />
Private Sub Form_Load()<br />
  Dim r As Long<br />
   r = ShellExecute(0, "open", "set path = D:\program Files\Java\jdk1.5.0_06", 0, 0, 1)<br />
   r = ShellExecute(0, "open", "java MyApp", 0, 0, 1)<br />
   End<br />
End Sub

But it doesn’t work. Can you change it?

Regards,

Chatura Dilan

If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.

Dave Kreskowiak6-Apr-06 6:12

6-Apr-06 6:12

You don't need all that junk. VB6 has it's own built-in Shell function. Also, if you're only running this on NT kernel machines, you can also put all your command-line statements together and run them all at once like this:

C:\>SET PATH=D:\Program Files\Java\jdk1.5.0_06 & Java MyApp

Soooo, you can do this in one or two lines:

Dim commandLine As String
commandLine = "CMD /K ""SET PATH=D:\Program Files\Java\jdk1.5.0_06 & JAVA MyApp"""
' The vbHide option (0) should hide the command window and show only your Java app
Shell(commandLine, vbHide)

I can't test this code because I haven't had VB6 installed anywhere for the last, oh, 4 years at least. But, I can tell you that any machine you put this on will require the VB6 Runtime[^] in order to run.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Chatura Dilan6-Apr-06 22:41

How to rotate a picture for 180 degrees in VB 6.0

6-Apr-06 22:41

Thank you Dave It works when I use this

Dim commandLine As String<br />
commandLine = "CMD /K ""set path = D:\program Files\Java\jdk1.5.0_06 & java MyApp"""<br />
Dim runMyApp As Double<br />
runMyApp = Shell(commandLine, vbNormalFocus)

Thank you Cristian Rose | [Rose]

Thank you Dave Rose | [Rose]

Regards,

Chatura Dilan

If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.

bbosko5-Apr-06 12:55

bbosko

5-Apr-06 12:55

My problem is:
I have to rotate a picture for 180 degrees in VB 6.0 and show it in PictureBox/ImageBox. Does anyone knows how to do that?

Thank you

Re: How to rotate a picture for 180 degrees in VB 6.0

Mekong River5-Apr-06 23:02

Mekong River

5-Apr-06 23:02

Try to check this code.[^]

"Sub" is short for...?

Mike Ellison5-Apr-06 12:16

Mike Ellison

5-Apr-06 12:16

Hi all. This may be a silly question, but does anyone know definitively what the keyword "Sub" in Visual Basic is short for (or, perhaps "derived from" is a better expression)? Does it come from "subroutine", "subprogram", something else? Or did the VB creators just call it "Sub" with no intent to reference earlier forms of BASIC?

Or is "Sub" a bonafide keyword for BASIC (and not just Visual Basic)?

I'm not sure why I want to know... just curious, I guess.

Colin Angus Mackay5-Apr-06 12:25

Colin Angus Mackay

5-Apr-06 12:25

I'm guessing it means subrouting. From earlier forms of basic "GO SUB"

"On two occasions, I have been asked [by members of Parliament], 'Pray, Mr. Babbage, if you put into the machine wrong figures, will the right answers come out?' I am not able to rightly apprehend the kind of confusion of ideas that could provoke such a question."
--Charles Babbage (1791-1871)
My: Website | Blog

Mike Ellison5-Apr-06 12:35

Mike Ellison

5-Apr-06 12:35

Hi Colin. That was always my guess too - but I wondered (call it a geek obsession) if there were a definitive history to it.

FrankyT5-Apr-06 12:53

FrankyT

5-Apr-06 12:53

I've always though it was 'subroutine', and took it for granted...now I wonder...

hey...slang is the vernacular for the vernacular...wow

Mike Ellison5-Apr-06 13:08

Mike Ellison

5-Apr-06 13:08

FrankyT wrote:
hey...slang is the vernacular for the vernacular...wow

Ooooohhhh.... Cool | :cool: