|
I have an old VB6 legacy app that I'm maintaining at a client. Basically a client app connects to a server app and then receives data. The client connects when the app is loaded and stays connected until the program closes.
I have to add some code to this app that will get the client app to reconnect to the server app if the connection is broken. If the connection is broken, or if it fails to connect, I start a timer that tries to connect every minute or so.
Here's the problem. When I connect on Page Load it connects fine. If the inital connect does'nt work and I try connect later on with the timer the connection gets stuck in state 6 (which is connecting) and it never actually connects.
Here's the code I use to connect on both page load and in the timer:
Private Sub ConnectToEventPub()
wsReader.remotehost = strRemoteHost
wsReader.RemotePort = 100
wsReader.Connect
While wsReader.State = 3 Or wsReader.State = 4 Or wsReader.State = 5 Or wsReader.State = 6
DoEvents 'wait for connection to complete
Wend
If wsReader.State = 7 Then 'if connected send info
wsReader.SendData (aService & "|" & aAbandonTime)
bISWinsockConnected = True
tmrReconnect.Enabled = False
Else
bISWinsockConnected = False
tmrReconnect.Enabled = True
End If
End Sub
The Sub works fine when called from Page Load but not when called from the timer.
Any ideas? I'm stumped and sitting in a freezing server room.
Capital Punishment means never having to say "you again?"
As easy as 3.141592653589793238462643383279502884197169
|
|
|
|
|
i want to make an asp.net page which will be called by a vb.net application witin a pc. this application will send the username and password to this asp.net page and retrieve information (true or false). if the username exists witin the database of the website (server) then the function will throw a true. how can i make this happen without any asp.net page opened?
Adrian De Battista: .Net Programmer, Java Programmer and Web Designer.
|
|
|
|
|
You don't want a web site, you want a web service. A web service is called over the web, can return a value to your code, and has no pages.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
how to make a web service pls?? can i make one??
Adrian De Battista: .Net Programmer, Java Programmer and Web Designer.
|
|
|
|
|
This[^] is the definitive site on the subject.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
This[^] should tell you a bit more about what web services are and point you in the right direction.
|
|
|
|
|
Hi, is there any good free, documention on visual BASIC express edition? I am doing an A level, and I want to get the programming out the way as soon as possible. OR, are there any free podcasts I could get that I could run on my IPOD(The original)? Thanks for any suggestions!
|
|
|
|
|
Do these use the same langauge? I ask because I was typing into my school progam ( visual BASIC 6 ) Form1.Print "Hello" and it worked then I typed the same thing into my express edition version, and it didn't work, why is this?
|
|
|
|
|
There is no such thing as visual basic express. Only Visual Studio express for VB.NET
Visual basic 6 is not 100% compatible with Visual Basic.NET
--------------------------------------------------------
My portfolio & development blog
Q:What does the derived class in C# tell to it's parent?
A:All your base are belong to us!
|
|
|
|
|
Sorry, it says (On the top of the IDE) Microsoft Visual basic 2005 express edition. Can you tell me what the actual code should be for the VB.Net express edition?
|
|
|
|
|
VB6 is an old ( out dated and no longer supported ) non OO language that Microsoft has pretty much discarded. VB.NET Express is a free version of VB.NET 2005, which is a new, OO language that happens to use VB syntax. They are almost completely different from one another, your VB6 program will not work in VB.NET. Tell your school that VB6 is rubbish, it's dead, and VB.NET Express Edition is free. That's what they should be teaching you.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
Ok, does that mean, that the express edition I have is up to date and is the right one. I need to get books etc. for visual BASIC 2005?
|
|
|
|
|
Yes. VB.NEt 2005 is the one to learn, between that and VB6. So, get some books, check out the information online, and remember you can ask any question you like here, but you'll do better if you try to do stuff and ask when you get stuck.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
hi,
I am creating a .txt file using .net.
The name of the file will be the selected item in a list box.
eg if i select "name" in the list box then the fule name will be name.txt.
My problem is if i select "name/sa" in my list box, it says path does not exist as it does not take it as one name.
it takes name as a filder name and sa as a file name.
how can i make the "/" to be part of the name?
|
|
|
|
|
Rigard wrote: how can i make the "/" to be part of the name?
Not sure, but perhaps you can use Linux ?
/ is NEVER part of a filename, it always denotes a path. If you're taking free text, you need to not accept this value, or the others that are unacceptable in a filename ( rename a file in explorer to that, and you'll get a list from Windows ).
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
By default, in all Windows versions, the "/" character is reserved for command line parameter switches and cannot be used in path names:
FORMAT A: /S
The "\" character is reserved for file system path spec's and also cannot be used in a filename.
<div class="ForumSig"><font color="Blue">Dave Kreskowiak
Microsoft MVP - Visual Basic</font>
</div>
|
|
|
|
|
Hi everyone,
In VS2003 we have ASP.NET Web Application on Visual Basic projects but i cant see it on VS2005
does it exist on vs2005 or no.
Thanks
|
|
|
|
|
File/NEw/Web site. You don't need a sln file anymore, you can create a website just by pointing to the directory it's in.
ASP.NET 2.0 is very different from 1.1.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
Hi Christian,
Please can you say one thing this different is also on classes and I need to learning a new things
Thanks
|
|
|
|
|
hi,
how to print a form including all its controls.
i have to create a document in VB.Net.i have used ritch texbox and and i placed labels and textboxes in the ritch textbox.all the labels and textbox values are taken from the database.then it looks like a document.
i have to print this document.can anybody help u.
|
|
|
|
|
|
I am trying to hook keyboard events(basically disable printscreen key) from windows service. This code works perfectly fine when i put it in a form but when i try it from windows service it compiles properly, installs also without any error but does not disable the required key! I have tried almost all combinations to try and execute this code for example: converting class into a dll and then calling it from service code, include the whole code in a different file etc. but all of them do the same thing, i.e compile and install without errors but not work! i am including the code here for your refference. and yes i am working on visual studio 2005.
********************************************************************************************
Public Class Hook_PS
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As LowLevelKeyboardProcDelegate, ByVal hMod As Integer, ByVal dwThreadId As Integer) As Integer
Declare Function UnhookWindowsHookEx Lib "user32" Alias "UnhookWindowsHookEx" (ByVal hHook As Integer) As Integer
Delegate Function LowLevelKeyboardProcDelegate(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
Declare Function CallNextHookEx Lib "user32" Alias "CallNextHookEx" (ByVal hHook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
Structure KBDLLHOOKSTRUCT
Dim vkCode As Integer
Dim scanCode As Integer
Dim flags As Integer
Dim time As Integer
Dim dwExtraInfo As Integer
End Structure
Dim intLLKey As Integer
Private Function LowLevelKeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
Dim blnEat As Boolean = False
Select Case wParam
Case 256, 257, 260, 261
blnEat = lParam.vkCode = 44
End Select
If blnEat = True Then
Return 1
Else
Return CallNextHookEx(0, nCode, wParam, lParam)
End If
End Function
Public Function Hookkbd() As Integer
intLLKey = SetWindowsHookEx(13, AddressOf LowLevelKeyboardProc, Marshal.GetHINSTANCE (System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32(), 0)
Return intLLKey
End Function
Public Function Unhookkbd(ByVal id As Integer) As Integer
UnhookWindowsHookEx(id)
End Function
End Class
********************************************************************************************
Content of the Service file:
Public Class DisablePS
Dim kbh As New Hook_PS
Dim id As Integer
Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set things
' in motion so your service can do its work.
id = kbh.Hookkbd()
End Sub
Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your service.
kbh.Unhookkbd(id)
End Sub
End Class
*******************************************************************************************
Any help on this would be highly apprecited.
Thanks in advance.
|
|
|
|
|
kushang.moorthy wrote: This code works perfectly fine when i put it in a form but when i try it from windows service it compiles properly, installs also without any error but does not disable the required key!
Of course not! Windows Services run under a seperate (not visible) desktop. Only one desktop can receive the input focus at a time, so according your service code, you never get any keystrokes.
Try going to the Services manager, finding your service, then enabling the option to "Allow service to interact with desktop". This might take care of the problem.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi all,
I wrote some vbscript code to find place holders in Excel cells (e.g. yadayada<<comments>>blahblah) and replace them with some user defined text. I tried Cells.Replace method but it only works if the string is less than 255 chars... I searched the MSDN try to find a work around but no banana... Any help will be highly appreciated 
Henry
|
|
|
|
|
Hi guys, I'm new to programming and the first language I'm trying to learn is VB .NET.
It's going pretty well for me, but I have a question and I was wondering if anyone here might be able to help me.
I have a text box set up to get information from the user, once that is computed an anwser anywhere from 0 minutes to 180000 minutes. I was wondering if there is a tutorial, or a few lines of code that would be able to change the raw data of 180,000 minutes to days/hours/minutes in three different text boxes.
For example, if the user entered a number which got them 129,564 minutes that would display as 89 days 23 hours and 24 minutes.
Thanks a lot, aqzman
EDIT:
I thought this code might work, but it never. Haha.
If Time > 1440 Then
Time = (Time / 60)
Time = (Time / 24)
txtDisplay.Text = Time
End If
If Time < 1440 Then
Time = (Time / 60)
txtDisplayHour.Text = Time
End If
If Time < 60 Then
Time = (Time)
txtDisplayMin.Text = Time
End If
-- modified at 19:50 Monday 2nd October, 2006
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
