|
-
Jul 28th, 2000, 04:28 AM
#1
Thread Starter
Addicted Member
Who will help me make the folowing example more proffesionel,
for example:
- Hide the shelled DOS-window during the faxing
- read the contents of the DOS-window en react on it, or:
- show a windows that let see what the program is doing during the fax sending
(the Fax-program is all over the internet available)
Private Sub Form_Load()
Again:
DOS$ = "C:\SSFAXER.EXE 2 T"
FAX$ = "031-522-472828 "
FILE$ = "C:\Autoexec.bat"
MsgBox DOS$ & FAX$ & " " & FILE$
'wait until the program is ended, more code needed
'ExecCmd (DOSF$ & FAX & FILE$)
Shell DOS$ & FAX & FILE$, vbNormalFocus
'read the contents of the fax (DOS-window) and if the last row
'is 'Completed OKay !!!' then:
If Message$ = "Completed OKay !!!" then
MsgBox "The FAX is send well !"
End If
End
End Sub
'THIS IS THE CONTENTS OF THE DOS-WINDOW WHILE FAXING
'Simple Simon ssFaxer Version 8.00 TRY-WARE
'(c) 1992-1996 Simple Simon Software (817) 283-6691
'
'Converting Files
'Identifying Modem
'Initialize Modem
'Dialing Phone 0,0119876543
'Connected to 011 9876543
'
'Confirming Page Received
'Page Received OK
'Completed OKay !!!
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|