webbrowser sound
I wonder how to remove the click sound of the webbrowser on its navigate or click or any events that makes a sound. How can that sound be remove or muted?
View Articledesperatly need webbrowser image extraction links
hi i need help with this webbrowser am working with , i need to extract all the ( .gif ) links from a page please give an example thanks been searching getting tired of it
View Article[RESOLVED] Need Help with Startup Form
Hi All Im just having an issue while trying to load a Start form, example: I just want form1 Appears in screen for 5 seconds, then automatically close and open form2. Thanks All pd: never done this...
View ArticleA Better Way Of Doing This
Below code shows that I have a For...Next loop checking 4 possibilities and for each one that is true I have the same code execution except for the value in DropCount. I set it up as a GoSub so I...
View ArticleRun-time Error 3021, No Current Record, query string question.
I'm working with a few year old VB6 project, using Access 2000 tables. When my query string is run against a couple tables, I get a 'No current record' error. I believe now I have a syntax problem in...
View ArticleGetting the value of the last characters from a string
I have the following string: Example 1 s = "Pole(1).CellNumber(1)=0" In the above example I would simply use the Val() function for the Right() of variable s for a length of 1 Value = Val(Right(s, 1))...
View Article(winsock array) useragent change please read
i have combo1 with refferal links urls i have combo9 with useragents list Quote: Private Sub ws_Connect(Index As Integer) On Error Resume Next Dim agent As String, agent1 As String Dim packket As...
View Articlehelp (UNLOADING SOCKETS)
Private Sub Command3_Click() Dim lngI As Integer Dim strSplit() As String For lngI = 0 To List1.ListCount - 1 'Label1.Caption = List1.ListCount If lngI > 0 Then Unload ws(lngI) 'Unload Socket(Index)...
View ArticleVB6 win32 API Control Other App Print
Hi, I have a VB6 app that needs to control another app. Operating systems are XP, Vista, and Win7. I can make successful API calls to do everything, but there are some issues. 1. I need to tell the...
View ArticleUrgent Help Winsock failing to send 1 packet
Quote: Private Sub ws_Connect(Index As Integer) On Error Resume Next Dim agent As String, agent1 As String Dim packket As String, packet1 As String, packet2 As String, packet3 As String, posst As...
View ArticleOpen Different Data Source Name
Quote: FindCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\BSParking.mdb;" As you can see the example above it opens BSParking.mdb, Is there a...
View ArticleExcel Sheet in vb6
Hi evryone I have an application in vb6 it's a databas and now is the problem how can I open an excel sheet without going to program excel. With a form ??? How to make this in the same application ?...
View ArticleNo value given for one or more required parameters
Hi On rs.open it gives me above error dim rs as adodb.recordset dim str as string Set rs = New ADODB.Recordset str = "select transactionno,vehicleid,grossshiftdate,custname,prcname from transact where...
View Articlehelp me how to give hint in quiz
hi am making quizbot. i need source code to give hint(show 2 3 word in from answer in there pattern) as the time reach the hint(hint of give word will increase). ex: who is first man who walked in...
View Article"syntax error in where clause" - please help
Hi, please help me on the below code, i am new at VB. Code: Private Sub cmdOK_Click() Dim sqlPassword As String Dim rstPassword As ADODB.Recordset Dim intDaysLeft As Integer Dim dateHolder As Date Dim...
View ArticleSimilar repeating code and testing tools
PicBlackSquareDown1.Top = PicBlackSquareDown1.Top + speed If PicBlackSquareDown1.Location.Y > 800 Then PicBlackSquareDown1.Top = rnd.Next(-4000, 0) End If If...
View ArticlePrinter font not setting correctly
I have a program in VB4 16bit thats giving me trouble. I'm trying to get it to print to a modern printer with a fixed width font. If I set the font and font size in the code it works for one page and...
View ArticlePassword Attemp
Heya guys =) Here is my Code Password Code: Private Sub cmdLogin_Click() If txtPassword.Text = "training" Then EmployeeStartup.Show Unload Me Else If MsgBox("Do you want to try again ?", vbQuestion +...
View ArticleHow can i download the file?
Hello, How can i download the file in background? Example link: http://www.egitimhane.com/2-sinif-de...i-d133373.html Thanks.. Attached Images
View Article[RESOLVED] Invalid Property Value: DTPicker
EDIT FORM Code: Private Sub cmdUpdate_Click() On Error GoTo errupdate executeQuery "UPDATE Finder SET Owner = '" & txtOwner & "', EmployeeNumber = '" & txtEmployeeNumber & "',...
View Article