Question:
How to Handle Application Events from Visual basic?
kshitij
2006-02-12 22:21:45 UTC
HI,
My Question is if from any application i am getting one message box which contain Yes/No button and this message is coming after each 5 seconds and i have to click this for all time , so i have to write program to handle this message box Yes button and i have to press it by calling its event automativally.... I know this can happen using API , but can any body guide me for , its very important for me..

Regards
Kshitij Yelkar
kshitij_y@yahoo.com
Three answers:
inin
2006-02-13 02:52:14 UTC
You are right it can be done using API cut there are libraries which are easy to call and code.

One such is the activex control found at http://www.autoitscript.com/autoit3/
MichirĂ¹
2006-02-12 22:38:10 UTC
Useful Site ... it may help!

http://msdn2.microsoft.com/en-us/library/f2bys999(vs.80).aspx
?
2016-09-24 10:04:44 UTC
I in simple terms finished an XP SideBar , basically for the hell of it. I placed a track participant in it utilising the media participant in VB 2008 exhibit. ( this is not contained in the area toolbox, you need to get it from kit menu column, COM components.) Use 5 genuine track titles out of your "My track" folder placed some track titles out of your "My track" folder in a listbox. Public class Form1 deepest Sub Form1_Load(ByVal sender As device.merchandise, _ ByVal e As device.EventArgs) Handles MyBase.Load With Me.ListBox1.products ' use genuinely names from "My track" .upload("song1") .upload("song2") .upload("song3") .upload("song4") .upload("song5") end With end Sub 'the place it says rfile under, placed your computers call 'rfile is my puter, this is the way the direction must be written deepest Sub ListBox1_SelectedIndexChanged _ (ByVal sender As device.merchandise, _ ByVal e As device.EventArgs) _ Handles ListBox1.SelectedIndexChanged Dim SEL As String = ListBox1.SelectedItem Dim Filename As String = _ "C:data and SettingsdocMy DocumentsMy track" & SEL AxWindowsMediaPlayer1.URL = (Filename) end Sub deepest Sub Submitbtn_Click(ByVal sender As device.merchandise, _ ByVal e As device.EventArgs) Handles Submitbtn.click If RadioButton1.Checked = genuine Then Dim reaction As String reaction = MsgBox("Your particular?", vbYesNo, "Doublecheck") If reaction = vbYes Then MsgBox("stable!") Else MsgBox("flow back to reading!") end If Else MsgBox("flow back to reading!") end If end Sub end class The final area demands 2 radio buttons "particular" & "No" a million label ( textual content textile = "Do you recognize?") a million listbox named ListBox1 a million button named Submitbtn AxMediaPlayer


This content was originally posted on Y! Answers, a Q&A website that shut down in 2021.
Loading...