In a message to ALL , ALAN AYCOCK said:
AA>I am trying to write a script with qmpro to logon and download my mail
AA>of a bbs. I am using the alt-q to write the script. It will logon gre
AA>but it will not download the mail.
It depends on the various BBS type you call and what type of mail door
that's used, but below is an example of a script I use to call a PCBoard
BBS using the CMail mail door script to download my mail and upload my
replies...maybe it'll help you. Also, it's for Qmodem/Win NOT DOS.
====================
'---------------------------------------------------
' Qmodem/Win Script for Kadet and Cam-Mail Door
'---------------------------------------------------
'
' Original written for Qmodem/DOS by FGH
'
' Adapted to SLIQ 12/27/93 by FGH
timeout 600 ' Set Timeout for 10 Minutes
capture ConfigDownloadPath+"\kadet.cap" ' Capture Session in a file
when clear all ' Housekeeping, Clear Previous Whens
waitfor "no change?"
delay 0.1
send
waitfor "ANSI graphics (Enter)=no?" ' Graphics Prompt
delay 0.1
send "n q" ' This Says NO and Skips Opening Screen
waitfor "What is your first name?"
delay 0.1
Send "fred hall whatever" ' Full Name and Password
when match "(Enter) to continue" do send
when match "(H)elp, More?" do send "n"
when match "ll new mail?" do send "n"
waitfor "Since 'Last Read' (Enter)=yes?"
delay 0.1
send "n"
waitfor "Your Command Fred?"
send "cmail" ' Go Right to The CAM-Mail Door
if exists(ConfigUploadPath+"\kadet.rep") then
goto Do_it_all ' Do We Have a Reply Packet?
else
goto Get_it ' No Replies Today:
end if ' Download New Mail Only!
Do_it_all: ' * Download AND Upload Routine *
waitfor "Command?"
send "d;y" ' Download; Yes
when match "were found!" do goto Send_it ' No New Mail or Files
waitfor "KADET.QWK"
download "",Zmodem ' Download Mail Packet
when match "Download Aborted!" do goto Do_it_all 'OOPS! Transfer Error!
'Try Again!
Send_it: ' * Upload Replies Routine *
waitfor "Command?"
send "u^M" ' Upload
waitfor "Zmodem"
upload ConfigUploadPath+"\kadet.rep", Zmodem ' Upload Replies
when match "Upload Aborted!" do goto Send_it ' OOPS! Transfer Error! Try
' Again!
Bye: ' * All Done! Gonna Say Bye Now! *
waitfor "Command?"
send "q" ' quit to PCBoard
waitfor "Command Fred?"
send "bye" ' Goodbye
capture off
'Waitfor "10 Seconds"
'Send "^M"
waitfor "NO CARR"
when clear all
end
Get_it: ' * Download ONLY Routine: (No Reply Packet) *
waitfor "Command?"
send "d;y;g" ' Download;Yes;Goodbye
when match "were found!" do goto Bye ' No New Mail or Files Today! (SIGH)
waitfor "KADET.QWK"
download "", Zmodem ' Download Mail Packet
when match "Download Aborted!" do goto Get_it ' OOPS! Transfer Error! Try
' Again!
capture off
'Waitfor "10 Seconds"
'Send "^M"
waitfor "NO CARR"
end
Fred -- hallf@rl.af.mil -- now using Win95 build 490 & Qmodem for Win95
... Lookout World! The Modem is Ringing!
* Wave Rider 1.33 # 81 *
--- GEcho 1.11+
---------------
* Origin: PowerLine OLS 315.865.4070 Marcy NY (1:2609/2)
|