TIP: Click on subject to list as thread! ANSI
echo: qmodem_user
to: ALAN AYCOCK
from: FRED HALL
date: 1995-08-01 20:37:00
subject: Help with scripts

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)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.