|
This Solution worked, but only after I figured out that I needed to put my custom cursors in the c:\windows\cursors folder.
Thanks for the tip.
|
|
|
|
|
Hi Everyone,
I am searching for an app or code that will click a required text link on the screen. (i.e) I have a list of names and the program must (1) pick each name from the file (2) search the name in a web page in a browser (3) Once the name is found, click on the name (the names are text links to pages) (4) after some delay, get back to the previous page.
I am not sure where to start from.
Any help would be greatly appreciated.
Thanks.
|
|
|
|
|
Member 2056609 wrote: I am searching for an app or code
The world is a cold and heartless place.
However, we are here to try and warm it up just a little bit, and the title of your post suggests that you have already tried something yourself.
What have you got so far?
My advice is free, and you may get what you paid for.
|
|
|
|
|
Frankly, I have only extracted the list of names that has to be searched (a different part). Haven't done anything constructive in the mouse click part, since not sure where to start from.
Sorry for the empty hand reply.
Thanks.
|
|
|
|
|
Okay just a few pointers in the right direction:
1. Forget the mouse click event
2. Slap a browser control on your form
3. Research how to read through a webpage's content
4. compare your search list to the content of the web page
(5. Store your original url in a variable somewhere)
6. Research how to extract the url from a link on a webpage
7. when a link is found, set your browser control to go to the url of that link
8. after a while tell the browser to go back to the original page.
My advice is free, and you may get what you paid for.
|
|
|
|
|
Hi all...
I am creating a small project in VB.NET(VS2005). There I used wmp.dll library for playing media files.
Now, while playing a song by using that library, I wanna record that sound through output because I wanna mix that song with some other sounds.
Suggest me how can I do that.
Thanks
Gagan
|
|
|
|
|
That does not begin to make sense. You can't record using the output, you would use the input to record.
If everything was not true, would it be not true that everything is not true? So by saying everything is not true, you are automatically denying that everything is not true. Im so confused...
FreeDOS
- An open source modern
MS-DOS/PC-DOS replacement.
|
|
|
|
|
No Lloyd, in Windows one can record any output sound by using a sound or voice recorder and by doing some setting mannually.
Open volume control->Options->Properties
There select recording radio button and check "stereo mix" and "wave" checkboxes.
Now you can play any sound and by using a sound recorder, you can record that output sound.
I wanna do the whole same thing by programming not mannually. I wanna record any output song (not input) through vb.net programming. How can I do this??
Thanks
Gagan
|
|
|
|
|
Well that still does not make sense
However, if you mean any sound the computer makes you wish to record, then I don't really know if this is possible through code.
If everything was not true, would it be not true that everything is not true? So by saying everything is not true, you are automatically denying that everything is not true. Im so confused...
FreeDOS
- An open source modern
MS-DOS/PC-DOS replacement.
|
|
|
|
|
hi
i have problem to record wave output, can i help me please to record sound output cardsound
thanks
|
|
|
|
|
Hi
Im doing Texas Holdem poker program where player plays against the machine. Problem is how the software can know who has better cards.
There is 5 cards in table and both players have 2 cards. Program must decide who has the better hand or are hands similiar.
Thanks
teemuuu@hotmail.com
Finland
|
|
|
|
|
Google for "Poker Hand Evaluation". You'll find examples in all kinds of languages. Basically, each hand is going to be assigned an integer representing the strength of the hand. Which ever number is higher, wins. Anyway, this is where you have to do a bunch of research on various algorithms and implementations.
|
|
|
|
|
I am trying to create a contact us page on my website which will send the info entered to my email address using SMTP.
I got the following error:
the SMTP server requires a secure connection or the client was not authenticated. The server response was: 5.5.1 Authentication Required.
Which fields do you think this is referrring to? (server, host, port, recipient, sender, etc?)
|
|
|
|
|
your smtp server requires logon...it has nothing to do with the mail itself.
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
|
|
Hi
I want to get ip addresses and usernames using filesystemwatcher , who access server files.
Thanks,
Regards,
Vijay Kumar
India
Vijay
|
|
|
|
|
Since there is no link between a file on the server and the machine name that created it, this isn't possible.
|
|
|
|
|
Thanks for Reply
Imports System.IO
Imports System.Configuration
Imports System.Net.IPAddress
Imports System.Net.Dns
Imports FSWatcher.SystemInfo
Imports System.Windows.Forms
Imports System.Net
Imports System.DirectoryServices
Imports System.Runtime.InteropServices
Imports Microsoft.Win32
Imports System.Net.NetworkInformation
Imports System.Threading
Public Class Form1
Inherits System.Windows.Forms.Form
Public workgroup As String
Public WGroup As String = ""
'Public WithEvents Nc As NetComp
Public CompNode As New TreeNode(), CompInfo(1) As String
Private Delegate Sub updatetextbox(ByVal newLabel As String)
'Create the Advanced File System Watcher
Private WithEvents myfswFileWatcher As AdvancedFileSystemWatcher
Dim ip1 As String
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
'I got tired of dealing with cross thread errors, so I am ignoreing them, not the way to code here so you should do it correctly
'I did it so I caould get the code running as soon as possible.
Control.CheckForIllegalCrossThreadCalls = False
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents txtFolderToWatch As System.Windows.Forms.TextBox
Friend WithEvents btnBrowse As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnStart As System.Windows.Forms.Button
Friend WithEvents btnStop As System.Windows.Forms.Button
Friend WithEvents btnExit As System.Windows.Forms.Button
Friend WithEvents txtFileEvents As System.Windows.Forms.TextBox
Friend WithEvents chkSubFolders As System.Windows.Forms.CheckBox
Friend WithEvents fbdBrowserFolders As System.Windows.Forms.FolderBrowserDialog
Friend WithEvents chkSilentMode As System.Windows.Forms.CheckBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.txtFileEvents = New System.Windows.Forms.TextBox
Me.txtFolderToWatch = New System.Windows.Forms.TextBox
Me.btnBrowse = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.btnStart = New System.Windows.Forms.Button
Me.btnStop = New System.Windows.Forms.Button
Me.btnExit = New System.Windows.Forms.Button
Me.chkSubFolders = New System.Windows.Forms.CheckBox
Me.fbdBrowserFolders = New System.Windows.Forms.FolderBrowserDialog
Me.chkSilentMode = New System.Windows.Forms.CheckBox
Me.SuspendLayout()
'
'txtFileEvents
'
Me.txtFileEvents.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtFileEvents.Location = New System.Drawing.Point(0, 64)
Me.txtFileEvents.Multiline = True
Me.txtFileEvents.Name = "txtFileEvents"
Me.txtFileEvents.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.txtFileEvents.Size = New System.Drawing.Size(803, 536)
Me.txtFileEvents.TabIndex = 0
'
'txtFolderToWatch
'
Me.txtFolderToWatch.Location = New System.Drawing.Point(0, 8)
Me.txtFolderToWatch.Name = "txtFolderToWatch"
Me.txtFolderToWatch.Size = New System.Drawing.Size(320, 20)
Me.txtFolderToWatch.TabIndex = 1
'
'btnBrowse
'
Me.btnBrowse.Location = New System.Drawing.Point(328, 8)
Me.btnBrowse.Name = "btnBrowse"
Me.btnBrowse.Size = New System.Drawing.Size(24, 16)
Me.btnBrowse.TabIndex = 2
Me.btnBrowse.Text = "..."
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(360, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(80, 16)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Browse Folder"
'
'btnStart
'
Me.btnStart.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnStart.Location = New System.Drawing.Point(809, 72)
Me.btnStart.Name = "btnStart"
Me.btnStart.Size = New System.Drawing.Size(80, 32)
Me.btnStart.TabIndex = 4
Me.btnStart.Text = "Start Watching"
'
'btnStop
'
Me.btnStop.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnStop.Location = New System.Drawing.Point(809, 120)
Me.btnStop.Name = "btnStop"
Me.btnStop.Size = New System.Drawing.Size(80, 32)
Me.btnStop.TabIndex = 5
Me.btnStop.Text = "Stop Watching"
'
'btnExit
'
Me.btnExit.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnExit.Location = New System.Drawing.Point(817, 576)
Me.btnExit.Name = "btnExit"
Me.btnExit.Size = New System.Drawing.Size(75, 23)
Me.btnExit.TabIndex = 6
Me.btnExit.Text = "Exit"
'
'chkSubFolders
'
Me.chkSubFolders.Location = New System.Drawing.Point(448, 0)
Me.chkSubFolders.Name = "chkSubFolders"
Me.chkSubFolders.Size = New System.Drawing.Size(128, 32)
Me.chkSubFolders.TabIndex = 7
Me.chkSubFolders.Text = "Include SubFolders?"
'
'chkSilentMode
'
Me.chkSilentMode.Location = New System.Drawing.Point(152, 40)
Me.chkSilentMode.Name = "chkSilentMode"
Me.chkSilentMode.Size = New System.Drawing.Size(240, 24)
Me.chkSilentMode.TabIndex = 8
Me.chkSilentMode.Text = "Silent Mode to Log File"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(897, 605)
Me.Controls.Add(Me.chkSilentMode)
Me.Controls.Add(Me.chkSubFolders)
Me.Controls.Add(Me.btnExit)
Me.Controls.Add(Me.btnStop)
Me.Controls.Add(Me.btnStart)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnBrowse)
Me.Controls.Add(Me.txtFolderToWatch)
Me.Controls.Add(Me.txtFileEvents)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Form1"
Me.Text = "Folder Watcher"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
btnStop.Enabled = False
With System.Configuration.ConfigurationSettings.AppSettings
txtFolderToWatch.Text = .Get("PathToWatch")
chkSubFolders.Checked = CType(.Get("IncludeSubFolders"), Boolean)
chkSilentMode.Checked = CType(.Get("SilentMode"), Boolean)
End With
Catch ex As Exception
Throw ex
End Try
GetIPDomain(ip1)
End Sub
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
'fbdBrowserFolders.RootFolder = Environment.SpecialFolder.Personal
Try
fbdBrowserFolders.ShowDialog()
txtFolderToWatch.Text = fbdBrowserFolders.SelectedPath.ToString
Catch ex As Exception
Throw ex
End Try
End Sub
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Try
'call the sub that will create and start the AdvancedFileSystemWatcher
StartFileSystemWatcher()
Catch ex As Exception
Throw ex
End Try
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
Try
'Stop the AdvancedFileSystemWatcher from raising events.
StopFileSystemWatcher()
Catch ex As Exception
Throw ex
End Try
End Sub
Private Sub StartFileSystemWatcher()
Try
If txtFolderToWatch.Text.Trim.Length > 0 Then
'Create a new Advanced File System Watcher and set the network scan interval
myfswFileWatcher = New AdvancedFileSystemWatcher(5000)
'Add the handlers to handle the filesystemwatcher events
AddHandler myfswFileWatcher.Created, AddressOf OnCreated
AddHandler myfswFileWatcher.Changed, AddressOf OnChanged
AddHandler myfswFileWatcher.Deleted, AddressOf Ondeleted
AddHandler myfswFileWatcher.Renamed, AddressOf OnRenamed
'set the filewatcher path
myfswFileWatcher.Path = txtFolderToWatch.Text
'determine if the user wants to watch sub folders or not
If chkSubFolders.Checked Then
myfswFileWatcher.IncludeSubdirectories = True
Else
myfswFileWatcher.IncludeSubdirectories = False
End If
'Start the filewatcher watching for files.
myfswFileWatcher.EnableRaisingEvents = True
'set the GUI to reflect the fact the file system watcher is running
chkSubFolders.Enabled = False
btnStop.Enabled = True
btnStart.Enabled = False
Else
MessageBox.Show("Folder to watch is not Set", "No Folder Set", MessageBoxButtons.OK)
End If
Catch ex As Exception
End Try
End Sub
Private Sub StopFileSystemWatcher()
Try
'Stop the file system watcher from raising events
myfswFileWatcher.EnableRaisingEvents = False
'set the GUI to reflect that the file system watcher is no longer watching the folders.
chkSubFolders.Enabled = True
btnStart.Enabled = True
btnStop.Enabled = False
Catch ex As Exception
Throw ex
End Try
End Sub
Public Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)
txtFileEvents.Text &= "File changed: " & e.FullPath & " change type: " & e.ChangeType & " from " & Environment.UserDomainName & vbCrLf
End Sub
Public Sub OnCreated(ByVal source As Object, ByVal e As FileSystemEventArgs)
Call GetIPDomain(ip1)
Try
If chkSilentMode.Checked Then
WriteSilentLog("File Created: " & e.FullPath & " " & Now().ToString)
Else
If Me.InvokeRequired Then 'are we running on a secondary thread
Dim d As New updatetextbox(AddressOf updateTextboxHandler)
Me.Invoke(d, New Object() {"File Created: " & e.FullPath & " " & Now().ToString & vbCrLf})
Else
updateTextboxHandler("File Created: " & e.FullPath & " " & Now().ToString & " from " & vbCrLf)
End If
txtFileEvents.Text &= "File Created: " & e.FullPath & " " & Now().ToString & " from " & System.Net.IPAddress.HostToNetworkOrder(1) & vbCrLf
End If
Catch ex As Exception
Throw ex
End Try
End Sub
Public Sub Ondeleted(ByVal source As Object, ByVal e As FileSystemEventArgs)
Try
If chkSilentMode.Checked Then
WriteSilentLog("File Deleted: " & e.FullPath & " " & Now().ToString)
Else
'this is the correct way to deal with cross threading, and i was to much of a hurry to do the entire app this way so i ignore the errors now
If Me.InvokeRequired Then 'are we running on a secondary thread
Dim d As New updatetextbox(AddressOf updateTextboxHandler)
Me.Invoke(d, New Object() {"File Deleted: " & e.FullPath & " " & Now().ToString & vbCrLf})
Else
updateTextboxHandler("File Deleted: " & e.FullPath & " " & Now().ToString & " from " & vbCrLf)
End If
txtFileEvents.Text &= "File Deleted: " & e.FullPath & " " & Now().ToString & " from " & vbCrLf
End If
Catch ex As Exception
Throw ex
End Try
End Sub
Public Sub OnRenamed(ByVal source As Object, ByVal e As RenamedEventArgs)
Try
If chkSilentMode.Checked Then
WriteSilentLog("File renamed from: " & e.OldName & " to: " & e.Name & " " & Now().ToString)
Else
'this is the correct way to deal with cross threading, and i was to much of a hurry to do the entire app this way so i ignore the errors now
If Me.InvokeRequired Then 'are we running on a secondary thread
Dim d As New updatetextbox(AddressOf updateTextboxHandler)
Me.Invoke(d, New Object() {"File renamed from: " & e.OldName & " to: " & e.Name & " " & Now().ToString & vbCrLf})
Else
updateTextboxHandler("File renamed from: " & e.OldName & " to: " & e.Name & " " & Now().ToString & vbCrLf)
End If
txtFileEvents.Text &= "File renamed from: " & e.OldName & " to: " & e.Name & " " & Now().ToString & " from " & vbCrLf
End If
Catch ex As Exception
Throw ex
End Try
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
Me.Dispose()
End Sub
Private Sub WriteSilentLog(ByVal strTexttoWrite As String)
Dim fs As New FileStream(System.Configuration.ConfigurationSettings.AppSettings.Get("LogFileName"), FileMode.OpenOrCreate, FileAccess.Write)
Dim sw As New StreamWriter(fs)
sw.BaseStream.Seek(0, SeekOrigin.End)
sw.WriteLine(strTexttoWrite.ToString)
sw.Close()
End Sub
Private Sub chkSilentMode_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkSilentMode.CheckedChanged
If chkSilentMode.Checked Then
txtFileEvents.Enabled = False
Else
txtFileEvents.Enabled = True
End If
End Sub
Private Sub updateTextboxHandler(ByVal TextboxText As String)
' txtFileEvents.Text = TextboxText
End Sub
''' <summary>
''' This is the event that gets raised when the path becomes available after being unavailable
''' </summary>
''' <param name="Message"></param>
''' <remarks></remarks>
Private Sub myfswFileWatcher_NetworkPathAvailable(ByVal Message As String) Handles myfswFileWatcher.NetworkPathAvailable
Try
'Ok the network path is available now
StartFileSystemWatcher()
Catch ex As Exception
End Try
End Sub
''' <summary>
''' This is the event that gets raised if the path becomes unavailable, be it a network problem or the folder gets deleted.
''' </summary>
''' <param name="Message"></param>
''' <remarks></remarks>
Private Sub myfswFileWatcher_NetworkPathUnavailable(ByVal Message As String) Handles myfswFileWatcher.NetworkPathUnavailable
Try
'There was a network error we need to destroy the filesystemwatcher object and try to recreate it.
'Send an email saying there is a netowrk error????
'SendMail
'now we have to stop and kill the current filesystemwatcher. we will recreate it in the available event.
StopFileSystemWatcher()
myfswFileWatcher.Dispose()
Catch ex As Exception
Throw ex
End Try
End Sub
the above code get all information about file(created,changed,deleted,renamed).
In server ,there are many user access the file using our username and password. And I have to also run this program in server, server have status of all user who are connected to server using username and password.
Thanks
Regards
Vijay Kumar
India.
|
|
|
|
|
First of all, posting the entire app was completely uneccessary.
Second, why did you even post this at all?? The FSW cannot tell you which machine created/changed/deleted a file.
Third, ignoring all the cross thread calls is a really, really bad idea.
|
|
|
|
|
Member 4275928 wrote: 'I got tired of dealing with cross thread errors, so I am ignoreing them, not the way to code here so you should do it correctly
'I did it so I caould get the code running as soon as possible.
You choose to ignore one of the most fundamental rules in Windows programming?
You don't deserve any help on this site then. Read this.[^]
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
|
|
|
|
|
Thanks for Reply
i would like to know that if a file has been modified of created by a different user via lan in server(workgoroup/Workstation)how can we get the user name and ip address of that person(cliet/user/hostname) who is operating in the folder/files.
Thanks
Regards
Vijay Kumar
India.
Vijay Kumar S Pandey
Sector 3D, PitamPura
New Delhi
India
100034
|
|
|
|
|
You can't. NTFS does not track that information.
About the best you can hope for is to get the owner of the file. There is no way to map that user back to the IP address/machine name that they were using at the time.
|
|
|
|
|
Description: I have 1 textbox,button and one table.user entered data in the textbox and click save button the data is save to database table.i wrote some but iam getting some error
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
'Dim ds As DataSet
If tbxNote.Text <> String.Empty Then
Dim NoteRow As ChemComp_adminDS.GeneralNotesRow = m_ccDb.Chemcomp_adminDS.GeneralNotes.NewGeneralNotesRow
'Dim crow As DataRow = ds.Tables("GeneralNotes").Rows(0)
'User entered comment for this susbstanceID for the first time so new row to be inserted in
'to AdminComment table
' NoteRow.NoteID = CInt(NoteRow.Item("NoteId"))
NoteRow.CreatedBy = My.User.Name
NoteRow.CreatedOn = Now
NoteRow.ModifiedBy = My.User.Name
NoteRow.ModifiedOn = Now
NoteRow.Note = tbxNote.Text.Trim()
m_ccDb.InsertRow(NoteRow)
End If
'm_ccDb.GetList(m_ccDb.Chemcomp_adminDS.GeneralNotes)
End Sub
End Class
at the time of insertrow function iam getting the following error.
Cannot insert explicit value for identity column in table 'GeneralNotes' when IDENTITY_INSERT is set to OFF.
|
|
|
|
|
Do not try to insert the primary key value in the database. It is set as a auto generated column.
It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD
|
|
|
|
|