Air Compressor Bot
|
|
Home |
How it works |
Projects archive |
Contact Us Air Compressor Bot |
|
| The Career Path of Freelance Programming Jobs |
Small Program In Vb6 |
 |
Bidding Time: |
22/04/2005 17:09 - 29/04/2005 17:09 |
Budget: |
N/A |
Status: |
Closed |
|
|
|
Job Type: |
|
Description: |
open the window to the user, asking them to download this program. Once you open a window to talk to someone, or they open a window to talk to you, the message will be sent. Once the message has been sent, it takes their e-mail and stores it in a different file for each user (including guest's). This file is an exclusion file (each user must have their own file). So make sure to utilize current_user in registry and also Application Data for each user. Messages will not be sent to the user if their e-mail matches the one in the exclusion file. This guarantees that they will not see the message more than once. We want this process to be hard to manually kill or get rid of from Windows without using our uninstaller. With your project bid please tell us what method you can use to make sure the user will not manually delete the file. This tool should be not be visible from taskbar. The only place it will be visible is from our program where they can choose to enable/disable the tell-a-friend. This is also where we will allow the user to uninstall the program. We have the source code for Visual Basic 6 to send a simple message to a user. This should give you an idea of what we are looking for. The sending code is already there, you just need to add some checks for exclusion and a few other things to make it friendlier for us. The code for sending an outgoing message in vb 6 is: In a Form (In a Command Button) Private Sub Command1_Click() Call EnumWindows(AddressOf EnumWindowsProc, 0&) End Sub In a module Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Boolean Dim lLength As Long Dim strCaption As String lLength = GetWindowTextLength(hWnd) strCaption = String$(lLength, vbNullChar) GetWindowText hWnd, strCaption, lLength + 1 If lLength > 0 Then If strCaption Like "*Conversa*" Then AppActivate strCaption Sleep 100 SendKeys "Hi, I am just testing!", True Sleep 100 SendKeys "{ENTER}", True End If End If EnumWindowsProc = True End Function Related Projects:  Match Preview Site Sign Up Page /affiliate Signup Quick Quote / Order System Incompleted Project Layout A LeafletThis project is the proprietary information of .
Click here to remove this project from OUR database.
|
Operating System: |
(I don't know) |
Database System: |
(None) |
| <<< back |
|
| Home | Projects archive | RSS | Resources | Links | Contact Us | © 2004-2008 ProjectsList.biz /0.825 |