How Can I Using Vb Like Asp, Can Send A Set Of Variable To A Specific Website?
in asp , i can use method post to send a variable to a website
if in vb.net, how can i do this?
thanks
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Send Variable To Website .Net Asp
Hello,
Just been searching around, but havent found the relative info i been loooking for.
How can i send a variable to an .asp page and then on form load the asp page gets the info and carry on from there.
Inet.. Webbrowser?? Post method?
What do i do.?
Send Data To A Variable On A Website..
Hello there,
I need to find out, if there is a way to send data to a variable/textbox on a website.
Is this possible? is yes how?
is any extra scripting required ? i.e php, asp etc...
Thanx
Send Data To A Variable On A Website..
Hello there,
I need to find out, if there is a way to send data to a variable/textbox on a website.
Is this possible? other than having a webbrowser control on your form....!! if yes how?
I need it by default to open a webpage,, which i can do with the ShellExecute API but i dont know how to send the data to the variable...
is any extra scripting required ? i.e php, asp etc...
Thanx
Open A Website In A Specific Size
Does anyone have any idea on how I can open a website in a specific size? I don't want it to be in full screen, I want it to be like the MSN Messenger size and I want to remove some menu bar without manually removing it in the Internet Explorer. Thanks.
A Website To Send Ppl To, To Get MS Runtimes
I have a small website with some VB programs, but alot of ppl dont have the neccasary DLL and OCX files to run my programs. I dont have enough server space to host the DLLs and OCxs so is there some website that I can send people to, to easily get those DLL and OCX files?
Cheers, cow
Send Website Informations Via Winsock To Someone Else
I'm playing a massive-multiplayer-online-game. that means i have go online 5 times aday for about 3min. the game is programmed by a friend of mine. Now the computer-manager in school forced my friend to programm a IP lock, so we can't game from school.
I now want to programm 2 programms. a server and a client. the server would run 24/7 at my home PC and have to go and get the homepage and send the informations to the client. and the server has to click on a button in the website, but i want to say where to click, while working on the client.
How to get all the informations form the website, that I can send them with Winsock?
And how to make a click on the website at the server application, while sitting behind the client?
Just tell me how and what commands to use, I can try out and programming Winsock is no problem.
How Do You Send Data To A Input Box On A Website?
Hello. I have a webbrowser on my form, and I want to know how its possible to send data to input boxes on the webbrowser - kind of like a "autofiller" - something like what Gator does or what MSIE does when you have a stored password, it puts it in for you. What I want to do is read the HTML, and locate statements such as <input type="text" maxchars=21 name="email">, and then automatically (or by using a command button) send data that is already defined in a file, or in the Text1.text Text2.text, etc in the form itself. There is a good example of what Im trying to accomplish at http://www.roboform.com, except I cant exactly use roboform on my webbrowser in my form . So, does anyone know how to do this?? Ive heard I have to locate the webbrowser using API, and then use SetText (also API), but have no clue on how to do this . If anyone knows, dont hesitate to post below.
thanks
Send Email + Archive Without Redirect To The Website
Can someone help me?
I'm trying to make a application where I can send a email with a file, to the a person who use @hotmail.com
I wanna to do it without being redirect to the website.
Or be redirect with the email ready in my application.
Send Data To Website Without Webbrowser Control
Hello, is there a way with VB to send data to a website (i.e. Google) without using the Webbrowser control?
I know how to send data to a website by using the Webbrowser control, but now I'm starting the user's default browser. I have no idea how to do this now and I'm not even sure if it's possible.
Thanks.
Send POST Data To Website That Uses Frames
Hi,
I'm trying to send POST data and get response data from a website that uses frames and uses https://
the website is : https://www.lasuperiorcourt.org/civilCaseSummary/index.asp?CaseType=Civil
and, for example, I want to search for case # BC332390
I try to retreive the html data via the XMLhttp method in VBA, but the response text says my browser does not support frames. I'm not even sure if I'm doing this right. Can anyone teach me what is going on in this situation? Thanks.
Brian
How To Send String From VB Applet To Website Using VB Macros
Hi All,
I'm a QA Analyst and my manager wants me to improve my testing - write a VB script for one of the tasks. I have a little knowledge about VB, but its not enough for that task. If you can help me I'll greatly appreciate it.
Here is a task:
1.Via workstation I have FX application
2.One of the fields has a security's symbol
3.By using macros I have to send this symbol to the website's field and get the quotes.
I know how to do so between the applications via workstation, but have no idea, how to do it between an application and websites.
-Thanks you for your time and help.
Send Software Error At The Website Database Server
Hi all
Thanks 4 previous
My next problem is that I want to send the software error that is running at the client pc at our website…
I am saving the error at the client database also then how to send them at our website database
Hope u all understand
thanks
Net Send To 3 Specific PC's
I need some code to net send a message to 3 PC's. How do I do this? I could netsend to a workgroup but all of the PC's are on the same workgroup & only the help staff needs to recieve the message. But all three need to get the message. Can anyone help me?
Send Email With A Specific Text
Is it possible to let a visual basic send email with say a text from a text box and send it. Without having to press SEND or do anything, the program should do everything herself
thanks VidarJul
Can I Send A Click To A Specific Point On A Form?
I've got this dumb form that minimizes to the sys tray but when I restore it, for some reason it doesn't completely get the focus until I click the form once even though it appears to have it...I finally got it working correctly by using the SetWindowPos api...but alas athough it works on my Win98 system it doesn't correct the problem on WinNT systems.....so I was wondering if there was anything similar to SendKeys that would allow me to send a MouseClick to make the dang thing happy?:wall:
Setting A Variable With A Specific Format
I've run into this problem many times over... there must be an easy solution! Here's one that has to do with number formats, but any formatting could apply to the issue I have.
Let's say I have a date 3/5/08 in A1 (in that format), and I want to pull the word "March" from it.
I know how to change it (or copy it to another cell if I want to leave the original untouched)--
(putting it in B1):
Range("B1") = Range("A1")
Range("B1").NumberFormat = "mmmm"
From there I could use what is in B1 if I want to use it as a variable (in this case I need to open up a file that has the month name in word form in the file name, which is why I need this)...
themonth_inwordform = Range("B1").Value
... but all I'd REALLY like to do is grab the word March to use as a variable... but when I try things like:
themonth_inwordform = Range("A1").NumberFormat = "mmmm" I just get an errror, or it tells me that it is FALSE (because the number form at is NOT in word form in A1. . . . .
I have this problem for all other types of formats... and I'm tired of pasting what I need in the correct format into some random cell before creating the variable.
I'd REALLY appreciate any help with this. Thanks in advance!
Dim A String Variable With Specific Values
Hi,
I want to dim a string variable which will have 2 specified values
I.E
I want to dim a variable called "responce" and have only two possible values "F" or "S"
I have tried the following
dim responce (f , a) as string
dim responce ("f" , "a") as string
dim responce ("f" or "a") as string
dim responce ("f" and "a") as string
How can I do this
I have looked in help under dim
Thanks Mark
How To Find A Specific Word In A Variable?
I need a simple way to do this..
(like the indexof(blah) in ASP / java)
if i have the variable "MSG this message"
how can i make it find the "MSG" part in that variable.
and if there is a "MSG" part in the variable, how can i make it read only what is behind the MSG part...
So that i can use this as a "command" in a text based program.
like if i write "MSG whatever text there is to write" into a variable (textbox) then it sees the MSG and takes the rest and produces
MSGBOX "whatever text there is to write",,"MSG command"
How can i do this? ?!?!?
Please provide whatever example you might have on this...
Thanks... in advance -AlexData-
How To Make A Client Send Data To A Specific IRC Channel?
I am not very talented when it comes to VB coding, as I have just started looking at code this past week. I looked at a few tutorials regarding how to send data to an IRC channel, and came across this code. Thing is, it doesn't work. Nothing joins the IRC channel when I test the program. I added a winsock control. I'm just not quite sure what to do, so if anyone could point me in the right direction I would much appreciate it.
edit*
i get this error after running the program "System.Runtime.InteropServices.COMException was unhandled
ErrorCode=-2146788282
Message="Exception from HRESULT: 0x800A9C46"
Source="Interop.MSWinsockLib"
StackTrace:
at MSWinsockLib.IMSWinsockControl.SendData(Object data)
at AxMSWinsockLib.AxWinsock.SendData(Object data)
at VBNET.HowTo.frmLogin.Winsock1_Connect() in C:Documents and SettingsDavidDesktopBoxfrmLogin.vb:line 169
at VBNET.HowTo.frmLogin.btnOK_Click(Object sender, EventArgs e) in C:Documents and SettingsDavidDesktopBoxfrmLogin.vb:line 109
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms .UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int 32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(Form mainForm)
at VBNET.HowTo.frmLogin.Main() in C:Documents and SettingsDavidDesktopBoxfrmLogin.vb:line 4
at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
Quote:
Private Sub Form_Load()
With Winsock1
.RemoteHost = "coins.dal.net" ' The IRC server
.RemotePort = 6667 ' Connect on port 6667
.Connect()
End With
End Sub
Private Sub Form_Unload(ByVal Cancel As Integer)
Winsock1.Close()
End Sub
Private Sub Winsock1_Connect()
' Introduce ourselves to the IRC server. Our nickname will be "WVB_Test"
With Winsock1
.SendData("NICK WVB_Test" & vbCrLf)
.SendData("USER WVB_Test " & Winsock1.LocalHostName & " " & UCase(Winsock1.LocalHostName & ":" & Winsock1.LocalPort & "/0") & " :WinsockVB Test Client" & vbCrLf)
.SendData("JOIN #oorgle" & vbCrLf)
End With
End Sub
How To Send Specific Strinng To Log $_SERVER['HTTP_USER_AGENT'] Script
Hi all . i am tring to use inet.open url for a php script .My php script looks for string sendt by the program. Now my vb6 is sending this script :
VB Code:
Microsoft URL Control - 6.00.8862
but i want it to send simmiler to this string :
VB Code:
edia Player Classic
Media Player Classic
shoutcastsource
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; {BE6B3C18-D43F-BBA3-8046-F416968AB502}; (R1 1.5))
How i can make my vb6 so that when it makes inet.open url it sends the above type of string to my php not the default one.I hope some now show me how that can be done.Thanks
Finding A Specific Word In A Variable, Then Returning The Whole Line
I've a program that gives this information:
Quote:
Cdrecord-Clone 2.01.01a01 (i686-pc-cygwin) Copyright (C) 1995-2004 Jörg Schilling
Using libscg version 'schily-0.8'.
scsibus0:
0,0,0 0) 'ST320410' 'A ' '3.39' Disk
0,1,0 1) *
0,2,0 2) *
0,3,0 3) *
0,4,0 4) *
0,5,0 5) *
0,6,0 6) *
0,7,0 7) HOST ADAPTOR
scsibus1:
1,0,0100) 'LG ' 'CD-ROM CRD-8485B' '2.00' Removable CD-ROM
1,1,0101) *
1,2,0102) *
1,3,0103) *
1,4,0104) *
1,5,0105) *
1,6,0106) *
1,7,0107) HOST ADAPTOR
How would I be able to find all "CD-ROM" drives, and use that whole line? What I'm trying to do is show the CD drive ('LG ' 'CD-ROM CRD-8485B'), and have the ID (1,0,0) attached with it, but not have it the ID shown in a list box.
Send Variable To Webpage
Ok I would like to have a user click a button in my vb app and have it open a webpage and send a string to that webpage (just send the string to a variable in the webpage, it can't be visible to the user). The webpage will be an email form where they fill in information like name, company, phone number, etc etc and when they send the form it sends the string value (that it got from my vb app) by email along with the rest of the info the user entered.
So.. i know how to make an email form, but my question is how can I send a variable to the form and have it send with the form when it's submitted?
Thanks!
Send A Variable Containing A Number To Clipboard
I am trying to send a number to clipbaord associated with a control on an image. Below is my code, which gives me an error, can someone pls help... thanks
Private Sub Image2_Click()
Dim p As Integer
p = 0
If Option1.Value Then p = p + 1
If Option4.Value Then p = p + 1
If Option6.Value Then p = p + 1
If Option8.Value Then p = p + 1
'MsgBox "You guessed" & Str$(p) & " out of " & Str$(4)
Clipboard.SetData "p",
Unload Me
End
End Sub
How To Send Object Variable To Another Application?
I have an object setup in an application using VBA and I would like to read that into a VB exe that I am setting up. Is this possible? I've found information on how to send/recieve text data, but what about passing objects?
Can We Send Variable Values To The Timer Control
Can we pass variable values to the timer control like we do with sub rutines and functions? I need to delay the start of my winsock reply code(it's to fast for the server to respond to.) I successfully delayed my code with the timer. Now I find out I need multiple connections. So now I have a winsock control array to do the same thing and I need to pass the index value to it. I know I can just use a public variable to do it but it's cleaner passing a value.
Thank you
Michael Schelin
Send Variable Contents To SQL Server Table
Hello All.
I have a VB application that I'm working on that reads in data from a serial port. Currently, the app is designed to take in the data, display in a text box, and also dump to a text file. I further incorporated routines to break the data up into seperate variables. All of this is working correctly.
What I would like to do is put the contents of the variables into a table on my MSSQL server (2k). I've been looking all over for simple instructions or how-to's of how to create the ADO connection (I've seen many programming examples, but haven't tried any as of yet), and to simply INSERT the variables into the table.
To make this easier, let's say I have 8 variables, var(1) through var(8).
My database table is already created (using SQL administrator), so I'm thinking the inserting should be relatively simple?
Any samples or referrences to the code I need (and maybe a bit of explanation) would be greatly appreciated.
Thanks very much in advance.
Bryan Fulkersin
How To Send The Array Type Variable To Oracle Stored Procedure
hi,
actually i am sending the parameters to oracle procedure by using adodb.command....
but in that one parameter is array of type integer.
ex:-
dim varr(10,2) as integer
dim cmd1 as adodb.command
cmd1.parameter(0)=txtno 'char type and its fine but
cmd1.parameters(1)=varr 'here i want to send the whole array items at a time but it is giving wrong type if arguments..
whatever the way iam approaching..
is there any wrong?
plz suggest on this
thank u
rojasree.
Automate A Email Send By Dropping An Email Into A Specific Folder
Microsoft Outlook 2000 is the application I wish to try and complete the task in.
I want to be able to drop an email from a general folder into a folder e.g "Allowed" or "Blocked" and it sends an email to the recipent or sender of the email saying that the email was blocked or allowed, depending on which folder it was dropped into respectivly.
I have no idea were to start.
How To Access A Specific Link On A Specific Frame With WebBrowser Control?
Using WebBrowser control(or equivalent code) I want to access science.cgi from the side frame of a page with this source code:
Main Page:
Code:<HTML><HEAD><TITLE>The World of Legends</TITLE></HEAD>
<FRAMESET COLS=100,*>
<FRAME NAME=links SRC="links/side.htm?rc=467228" MARGINWIDTH=0 MARGINHEIGHT=0>
<FRAMESET ROWS=25,*>
<FRAMESET COLS=*,275>
<FRAME NAME=freebies SRC="links/top.htm?rc=283268" NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0 SCROLLING=NO>
<FRAME NAME=adlink SRC="http://misc.swirve.com/adframe.cgi?server=u1.swirve.com&cid=1" NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0 SCROLLING=NO>
</FRAMESET>
<FRAME NAME=utomain SRC="menu.cgi?entergame=yes&ad=true&rc=6754842" NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0>
</FRAMESET>
<NOFRAMES>Utopia requires a frames-capable browser. Almost every
modern browser includes frame support, so you may wish to try upgrading
to a browser such as Netscape or Internet Explorer.</NOFRAMES></FRAMESET>
Utopia requires a frames-capable browser. Almost every modern browser
includes frame support, so you may wish to try upgrading to a browser
such as Netscape or Internet Explorer.
</BODY></HTML>
Side Frame:
Code:<HTML>
<HEAD>
</HEAD>
<BODY BGCOLOR=#000000 TEXT=#FFFFFF LINK=#FFFFFF VLINK=#FFFFFF leftmargin=0 topmargin=0 marginwidth=0 marginheight=0>
<IMG SRC="http://207.200.11.37/utopia/gr/uttitle.gif" WIDTH=80 HEIGHT=30 BORDER=0><FONT SIZE=-1>
<MAP NAME=menu>
<AREA SHAPE=rect TARGET=utomain HREF="/menu.cgi?" COORDS=1,3,80,15>
<AREA SHAPE=rect TARGET=utomain HREF="/council.cgi?" COORDS=1,16,80,28>
<AREA SHAPE=rect TARGET=utomain HREF="/explore.cgi?" COORDS=1,42,80,54>
<AREA SHAPE=rect TARGET=utomain HREF="/build.cgi?" COORDS=1,55,80,67>
<AREA SHAPE=rect TARGET=utomain HREF="/science.cgi?" COORDS=1,68,80,80>
<AREA SHAPE=rect TARGET=utomain HREF="/military.cgi?" COORDS=1,81,80,93>
<AREA SHAPE=rect TARGET=utomain HREF="/magic.cgi?" COORDS=1,107,80,119>
<AREA SHAPE=rect TARGET=utomain HREF="/thievery.cgi?" COORDS=1,120,80,132>
<AREA SHAPE=rect TARGET=utomain HREF="/attack.cgi?" COORDS=1,133,80,145>
<AREA SHAPE=rect TARGET=utomain HREF="/aid.cgi?" COORDS=1,146,80,158>
<AREA SHAPE=rect TARGET=utomain HREF="/readmsg.cgi?" COORDS=1,172,80,184>
<AREA SHAPE=rect TARGET=utomain HREF="/msg.cgi?" COORDS=1,185,80,197>
<AREA SHAPE=rect TARGET=utomain HREF="/forum.cgi?" COORDS=1,198,80,210>
<AREA SHAPE=rect TARGET=utomain HREF="/politics.cgi?" COORDS=1,211,80,223>
<AREA SHAPE=rect TARGET=utomain HREF="/status.cgi?" COORDS=1,224,80,236>
<AREA SHAPE=rect TARGET=utomain HREF="/scores.cgi?" COORDS=1,250,80,262>
<AREA SHAPE=rect TARGET=utomain HREF="/leaders.cgi?" COORDS=1,263,80,275>
<AREA SHAPE=rect TARGET=utomain HREF="/news.cgi?" COORDS=1,276,80,288>
<AREA SHAPE=rect TARGET=utomain HREF="/news.cgi?yesterday=true?" COORDS=1,289,80,301>
<AREA SHAPE=rect TARGET=utomain HREF="/dragon.cgi?" COORDS=1,302,80,314>
<AREA SHAPE=rect TARGET=utomain HREF="/pref.cgi?" COORDS=1,328,80,340>
<AREA SHAPE=rect TARGET=_blank HREF="http://games.swirve.com/utopia/help" COORDS=1,341,80,353>
<AREA SHAPE=rect TARGET=utomain HREF="http://games.swirve.com/utopia/help/faq.htm" COORDS=1,354,80,366>
<AREA SHAPE=rect TARGET=_top HREF="/logout.cgi?" COORDS=1,370,80,385>
</MAP>
<CENTER><IMG SRC="http://207.200.11.37/utopia/gr/newmenu.gif" USEMAP="#menu" HEIGHT=385 WIDTH=80 BORDER=0>
<a href="sidenogr.htm"><font size=1 face=verdana><B>No Graphics</B></FONT></A>
</BODY></HTML>
It must be accessed from the site, since it gives me a "You cannot access this page from outside the site" error.
However, I can click the last link of the side frame to open a page with this source:
Code:<HTML>
<HEAD>
</HEAD>
<BODY BGCOLOR=#000000 TEXT=#FFFFFF LINK=#FFFFFF VLINK=#FFFFFF leftmargin=0 topmargin=0 marginwidth=0 marginheight=0>
<IMG SRC="http://games.swirve.com/utopia/gr/uttitle.gif" WIDTH=80 HEIGHT=30 BORDER=0><FONT SIZE=-1>
<FONT SIZE=1 face=verdana>
<BR>
<A HREF="/menu.cgi?" TARGET=utomain>Menu</A><BR>
<A HREF="/council.cgi?" TARGET=utomain>Council</A><BR>
<BR>
<A HREF="/explore.cgi?" TARGET=utomain>Explore</A><BR>
<A HREF="/build.cgi?" TARGET=utomain>Growth</A><BR>
<A HREF="/science.cgi?" TARGET=utomain>Sciences</A><BR>
<A HREF="/military.cgi?" TARGET=utomain>Military</A><BR>
<BR>
<A HREF="/magic.cgi?" TARGET=utomain>Mystics</A><BR>
<A HREF="/thievery.cgi?" TARGET=utomain>Thievery</A><BR>
<A HREF="/attack.cgi?" TARGET=utomain>War Room</A><BR>
<A HREF="/aid.cgi?" TARGET=utomain>Send Aid</A><BR>
<BR>
<A HREF="/readmsg.cgi?" TARGET=utomain>Read Msgs</A><BR>
<A HREF="/msg.cgi?" TARGET=utomain>Send Msgs</A><BR>
<A HREF="/forum.cgi?" TARGET=utomain>Forums</A><BR>
<A HREF="/politics.cgi?" TARGET=utomain>Politics</A><BR>
<A HREF="/status.cgi?" TARGET=utomain>Relations</A><BR>
<A HREF="/dragon.cgi?" TARGET=utomain>Dragons</A><BR>
<BR>
<A HREF="/scores.cgi?" TARGET=utomain>The Kingdom</A><BR>
<A HREF="/leaders.cgi?" TARGET=utomain>The World</A><BR>
<A HREF="/news.cgi?" TARGET=utomain>The Paper</A><BR>
<A HREF="/news.cgi?yesterday=true?rc=978902?" TARGET=utomain>Last Month</A><BR>
<BR>
<A HREF="/dragon.cgi?" TARGET=utomain>Dragons</A><BR>
<A HREF="/defect.cgi?" TARGET=utomain>Defect</A><BR>
<A HREF="/pref.cgi?" TARGET=utomain>Preferences</A><BR>
<A HREF="/logout.cgi?" TARGET=_top>Log Out</A><BR>
<A HREF="side.htm?">Graphics On</A><BR>
</BODY></HTML>
The code I have been using so far in my program(for filling text boxes) looks like this:
Code:Private Sub Com1_Action()
Dim htmlSearchButton As HTMLButtonElement
Set docCurrentHTML = WebBrowser1.document.documentElement.All
For Each Item In docCurrentHTML
If Item.tagName = "INPUT" Then
If Item.Name = "Username" Then
Item.Value = Text1.Text
Exit For
End If
End If
Next Item
Any help would be nice!
How To Use Timer Control To Perform Specific Task At Specific Time Of The Day
How can I use timer control if I want to send a file through email everyday at 9 am. here is the code I am trying to implement:
Private Sub tmrSaleCode_Timer()
'MyTime = TimeSerial(10, 19, 0)
If Start1 = 0 Then
Start1 = Timer
End If
Pause = 86400
'Pause1 = 1000
If Timer < Start1 Then
Start1 = Timer
End If
If Timer > (Start1 + Pause1) Then
'If MyTime = Time Then
Start1 = Timer
Module1.TestSndMail
Label2.Caption = "Last Update = " & Now()
'Else
' Start1 = Timer
'End If
End If
End Sub
Thanks.
How To Read A Specific Http Link On A Specific Page And..
Hello ppl!
I am a REAL newbie to VB and I am trying to do a simple thing (I hope) I have no real basecode just the one to open a specific link: Code:
Private 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 0, vbNullString, "http://play.mp3.com/cgi-bin/play/play.cgi/AAIBQgAAAADABG5vcm1QBAAAAFLeTgEAUQoAAABYAQAAAFneTgEAQ2.J0TwUhHw6YJu97A3gU7XcOVum/fuzytoes.m3u/", vbNullString, vbNullString, vbNormalFocus
Unload Me
End Sub
Now, Id like to add some functionality since MP3.com changes the links every now and then. I need the program to go to the page, snatch the new link and then use it to open, say winamp. BTW, IE 5.5 does not alway's respond to the code above.. Dunno why. Sometimes it does. sometimes nothing happends whatsoever. Strange!
Ideas? Perhaps not a whole solution cause then I'll not learn. Thanx in advance! /FuzyToes
Copy Specific Files To Specific Folder
Hi,
i have several files in one folder.
For example 111.mp3, 222.mp3, 333.mp3
On a different folder with the name mp3 i got subfolders
with names 111 and 222 and 333
now i want to check each file in the folder if the files name equals the folder name in the subfolders. if it equals the name, copy the file to the folder.
for example
111.mp3 to folder 111
I have no glue how this works.
can anyone please help me??
thx,
akim123
Put Specific Character In A Specific Part Of String
Hi,
I am making a hangman game. Near the bottom of my code you will see that A Do loop. What I want to know is, is there a function that allows me to put a letter in a specific part of a string. As you can see, I ahve found the position of the letter clicked. I just need to put it in the correct place.
Can you help me?
Code:
Private strLetter As String
Public strWord As String
Public intCount As Integer
Private Sub cmdA_Click()
strLetter = "A"
cmdA.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdB_Click()
strLetter = "B"
cmdB.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdC_Click()
strLetter = "C"
cmdC.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdD_Click()
strLetter = "D"
cmdD.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdE_Click()
strLetter = "E"
cmdE.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdF_Click()
strLetter = "F"
cmdF.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdG_Click()
strLetter = "G"
cmdG.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdGuess_Click()
Dim strAnswer As String
If UCase(InputBox("Please enter your guess")) = strWord Then
MsgBox ("CONGRATULATIONS! You are Correct!")
picOut.Picture strWord
Else
MsgBox ("SORRY! You are Incorrect")
End If
End Sub
Private Sub cmdH_Click()
strLetter = "H"
cmdH.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdI_Click()
strLetter = "I"
cmdI.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdJ_Click()
strLetter = "J"
cmdJ.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdK_Click()
strLetter = "K"
cmdK.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdL_Click()
strLetter = "L"
cmdL.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdM_Click()
strLetter = "M"
cmdM.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdN_Click()
strLetter = "N"
cmdN.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdO_Click()
strLetter = "O"
cmdO.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdP_Click()
strLetter = "P"
cmdP.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdPlay_Click()
frmHangMan.Form_Activate
End Sub
Private Sub cmdQ_Click()
strLetter = "Q"
cmdQ.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdR_Click()
strLetter = "R"
cmdR.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdS_Click()
strLetter = "S"
cmdS.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdT_Click()
strLetter = "T"
cmdT.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdU_Click()
strLetter = "U"
cmdU.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdV_Click()
strLetter = "V"
cmdV.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdW_Click()
strLetter = "W"
cmdW.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdX_Click()
strLetter = "X"
cmdX.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdY_Click()
strLetter = "Y"
cmdY.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdZ_Click()
strLetter = "Z"
cmdZ.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdExit_Click()
End
End Sub
Public Sub Form_Activate()
picOut.Cls
Dim intWord As String
Dim intLength As String
Dim strLetters As String
Dim strBar As String
Randomize
intWord = Int(Rnd * 20) + 1
Select Case intWord
Case 1
strWord = "TRANSPORTATION"
Case 2
strWord = "COMPUTERS"
Case 3
strWord = "ONTARIO"
Case 4
strWord = "BASKETBALL"
Case 5
strWord = "EATING"
Case 6
strWord = "SHIRT"
Case 7
strWord = "CARPRT"
Case 8
strWord = "CRICKET"
Case 9
strWord = "FIXED"
Case 10
strWord = "DRIVING"
Case 11
strWord = "OUTSTANDING"
Case 12
strWord = "ASSIGNMENT"
Case 13
strWord = "WINDOW"
Case 14
strWord = "COLOUR"
Case 15
strWord = "HOLIDAY"
Case 16
strWord = "KEYBOARD"
Case 17
strWord = "PRESENTATION"
Case 18
strWord = "BILLIARDS"
Case 19
strWord = "CALENDER"
Case 20
strWord = "BACKPACK"
End Select
For i = 1 To Len(strWord)
picOut.Print "_ ";
Next i
End Sub
Private Sub placeLetter(strLetters As String)
Dim intLength As Integer
Dim strOneLetter As String
Dim strSeason As String, strSubString As String, strPlaceLetter As String
Dim intAnswer As Integer
intLength = Len(strWord)
Do Until intCount = 5
intAnswer = InStr(1, strWord, strLetters)
If intAnswer = 0 Then
Exit Do
Else
picOut.Print strLetters
End If
Loop
If intCount = 5 Then
MsgBox ("Sorry! Out of Guesses!")
End If
End Sub
Listbox : Do Specific Things On Specific Items
hi, i hope anyone can help me out, my problem is simple, as usual. :-)
lol
I have a Listbox, and in the listbox there 3 items (for example):
1) Dog
2) Cat 1
3) Cat 2
When I click on Dog, it'll show a MsgBox
When I click on other items, it'll.... hmm...close the program
How do i do that?
Add Data To A Specific Field From Specific Record
what's the part i'm missing or doing wrong! can you have a look?
thank's
Dim LOTeliminA As String
LOTeliminA = "SELECT TAULA_BASE.*, IDENTIFICADOR AS expr1 FROM TAULA_BASE where ( IDENTIFICADOR = '" & CBOaNULARlOTS.Text & "')"
Dim CONEXioLOTeliminA As ADODB.Connection
Set CONEXioLOTeliminA = New ADODB.Connection
CONEXioLOTeliminA.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "Porci_Lots.mdb;" & "Persist Security Info=False"
Dim recordSetLotElimina As ADODB.Recordset
Set recordSetLotElimina = New ADODB.Recordset
recordSetLotElimina.CursorLocation = adUseClient
recordSetLotElimina.Open LOTeliminA, CONEXioLOTeliminA, adOpenKeyset, adLockOptimistic '
With recordSetLotElimina
'.AddNew
.Fields("motiu_baixa") = Me.TXTmotiuBaixa.Text
'.Update
End With
Set recordSetLotElimina = Nothing
Set CONEXioLOTeliminA = Nothing
Assign Specific Icon To Specific Extention?
hi
how can you specify a specific icon to a specific extention
e.g if your file extention is jkl(123.jkl) how can you assign a specific icon to these files
i want to make my own ext (files having ext) and want to assign a specific icon to them
Running A Specific Task At Specific Time Of The Day
I am trying to write a program using Timer function and Timer control. I have to send a file everyday through email at 9 am. I do have the code which looks like this:
Private Sub tmrSaleCode_Timer()
'MyTime = TimeSerial(10, 19, 0)
If Start1 = 0 Then
Start1 = Timer
End If
Pause = 86400
'Pause1 = 1000
If Timer < Start1 Then
Start1 = Timer
End If
If Timer > (Start1 + Pause1) Then
'If MyTime = Time Then
Start1 = Timer
Module1.TestSndMail
Label2.Caption = "Last Update = " & Now()
'Else
' Start1 = Timer
'End If
End If
End Sub
How can I change this to make it work?
How To Open An Application And Send Value To The Application Variable...?
I use the following coding to call out another application from current application, but I don't know how to send some value to new opened application...?
Code:
Private 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 Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub CmdOpen_Click()
On Error GoTo Err1:
Dim MyAppID, ReturnValue
ReturnValue = Shell("C:Program FilesMCSSMCSS.exe", 1)
AppActivate ReturnValue
End Sub
FaxDocument.Send Method 'send' Of Object 'IFaxDoc' Failed
I've searched the web and read about 100 pages on MSDN and I dont understand why the following code doesn't work. It error out everytime on the FaxDocument.Send line with a RunTime Error '-2147024890 (80070006) Method 'send' of object 'IFaxDoc' failed
I am a member of the domain group administrators and have full permissions to manage the fax server. I am sending it from my laptop to a 2003 Server Microsoft Fax Services Fax Server.
Any Ideas would be great.
Public Function SendFax(FileName As Variant, FaxNumber As Variant, RecipName As Variant)
Dim objFaxServer As FaxServer
Dim FaxDocument As FaxDoc
Set objFaxServer = CreateObject("FaxServer.Faxserver")
Dim sSName As String
Dim iMsg As Integer
objFaxServer.Connect "//GLP-FAX"
objFaxServer.Connect "//GLP-FAX"
objFaxServer.ArchiveOutboundFaxes = 1
objFaxServer.Retries = 4
objFaxServer.RetryDelay = 4
Set FaxDocument = objFaxServer.CreateDocument(FileName)
FaxDocument.FaxNumber = FaxNumber
FaxDocument.DisplayName = "Tim"
FaxDocument.FileName = FileName
FaxDocument.Tsid = RecipName
Dim lSend As Long
FaxDocument.send
End Function
Sub TestFax()
Call SendFax("C: est.doc", "1234567", "TEST")
End Sub
My Program Be Pause Because Send ObjXMLHTTP.send URL Method
Hi All
Set objXMLHTTP = New MSXML2.XMLHTTP
objXMLHTTP.open "GET", mURL, False
objXMLHTTP.send URL
request = objXMLHTTP.responseText
my program be pause when its exexuting send method above.
its activity usual after finished send method and get result return request
How to my program do not pause when its executing send method?
help me please! thanks before
My Program Be Pause Because Send ObjXMLHTTP.send(URL) Method
Hi All
Set objXMLHTTP = New MSXML2.XMLHTTP
objXMLHTTP.open "GET", mURL, False
objXMLHTTP.send URL
request = objXMLHTTP.responseText
my program be pause when its exexuting send method above.
its activity usual after finished send method and get result return request
How to my program do not pause when its executing send method?
help me please! thanks before
|
TRACKER
