Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / A_DIALER / TELELIST.FRM (.txt) < prev

Wrap

Visual Basic Form | 1995-03-13 | 11.4 KB | 329 lines

Telelist ADIALER MS Sans Serif xpxpp Form1% QuitBut MS Sans Serif DelNameBut Delete Name MS Sans Serif 6 ReDialBut ReDial MS Sans Serif TimeBut Current Time MS Sans Serif AddNameBut Add Name MS Sans Serif DialBut MS Sans Serif Frame1 PrefixCBox Use Prefix MS Sans Serif PrefixTxtBox MS Sans Serif Label2 Prefix : MS Sans Serif Frame2 Enter Number to Call MS Sans Serif EnterNumTxtBox TeleListBox MS Sans Serif ConfigMen Configure ComPortMen Com Port Com1Men Com 1 Com2Men Com 2 Com3Men Com 3 Com4Men Com 4 Readout_Change HelloButton_Click ReadoutQ Form_Click @ Form_Load SubEnd? TeleList_Click Form_LinkClose Form_LinkError LinkErr Form_LinkExecute CmdStr Cancel] Form_LinkOpen Form_LostFocus TeleList Command1_Click ComPort, PhoneNum OpenComPortB DialBut7 Caption CloseComPort DialBut_Click ComNo InBuf OutBufh TempVar WriteComPortw I2z @ DialBut2_Click= OpenComI CloseCom OpenCommP CloseComm^ search ReadComPort baseStr@ TXVar TransmitComChar WriteVar WriteComm DialStr ReadStrA ReadVar[ ReadComm2 StrLocation* flushComm flushvar AddNameBut_Click NameIn Load{ TeleListBox TeleListTxtp TeleNos TeleListBox_Clickf FileNumJ ConfigFilea lopen MsgRety lcreat CreateFile InputTxt mTeleListBox[ ListBoxLoad FillListBoxm FillVarFillListBoxN ListBox] Sting DelNameBut_Click PhonNum DelItem# DelIndexC ListIndex DelTotal ListChar NameNumTxt ListCount QuitBut_Click msgVar ModemWrite ModemOff Break DialString PhoneStr| PhoneTrimc DelFile0 namnumtxt* Com1Men_Click; Com2Men_ClickL Com3Men_Click Com4Men_Click Checkw configuration Com2Men Checked Com3Men Com1Men Com4Men ComMenChkd ComMen ComMenIndexTxt ComMenIndexChkc Check1_Click% Option1_Click Option1 Value< lpAppName lpstringW lpFileNameK ListTotalp lpKeyName WritePrivateProfileString DelNamIni UpdateNamIni lpApplication lpReturnString lpDefault nSize GetPrivateProfileString. lpReturnSting; GetStringVar] keynameX TrimR LoadIndex StringLength/ StringLen TrimStr SearchStr CheckVar IniWriteVar setting ADIALER WriteIniT SetComVar SetComPorto GetComPortVar ComNum PrefixCBox PrefixTxtBoxI @ PrefixCBox_Click WritePreIndex PrefixOnOff PrefixCB GetPrefixVark @ PrefixTxtBox_Change PrefixStr GetPrefixStrVar CurTimeBut_Click8 TimeBox_Click- @ TimeBox_MouseDown Button Shift TimeBoxu TimeBox_MouseUpb CurTimeJ TimeBut_ClickT TimeBut TimeBoxBut Startd Finish Checkmodem ModemOK ReadComS CheckIniStr LoadStr RTrimt Text1_Change PrefixCBox2_Click EnterNumTxtBox ReDialBut_Click TeleListBox_DblClick Screenv Width Height Form_MouseDown MouseBut ThenMouseBut AddNameBut_Click Check1_Click To avoid dialog box on startup check for ComNo$ which will not be prensent at startupy Make this setting the default? Write Prefix data to ADIALER.INI to make it default Prefix ADIALER.INI On/Off Com1Men_Click Set the check on menus Set ComPort setting in ADIALER.INI file with Sub Function Com2Men_Click Set ComPort setting in ADIALER.INI file with Sub Function Com3Men_Click Set ComPort setting in ADIALER.INI file with Sub Function Com4Men_Click Set ComPort setting in ADIALER.INI file with Sub Function Command1_Click Couldn't open Com Port Check configuration!! 723-7429 Pause loop Pick up the phone and press Enter Turn off modem +++~~~ATH Com port not closed DelNameBut_Click Make sure the file is supposed to be deleted Are you sure you want to delete this entry First delete the old ADIALER.INI file with Sub Procedure from ADIALER.BAS Next delete item in listBoxx Next update the list in the ADIALER.INI file with a Sub Proceduree DialBut_Click Check to make sure there is a name and numberr No number specified Determine source of phone number Clears number from entry box Dial the phone number using a sub procedure in ADIALER.INI DialBut2_Click Check that a name and number have been selectedd No Name specified! Dial phone by call Dial sub procedure in ADIALER.BAS Form_Load Center the form on loading Loads input dialog box Set up the Prefix On/Off optionx First check for ADIALER.INI file using the FileCheck value FileCheck CheckString make fixed length because of DLL returnl ADIALER.INI Could not find ADIALER.INI file It will be created in Windows directory! You will need to reconfigure. Get prefix Prefix On/Off make fixed length because of DLL returne Gets Prefix On or Off from ADIALER.INI and checks the menu selection Set up the Prefix textbox from ADIALER.INI Prefix Prefix String make fixed length because of DLL returne Gets Prefix string from ADIALER.INI and checks the menu selectioni Set up the ComPort from ADIALER.INI file ComPort ComNo ADIALER.INI Gets Com Number from ADIALER.INI and checks the menu selection Fill the TeleListBox List Box loading loop Names and Numbers Empty Stop loop if reach end of data Empty Form_MouseDown PrefixCBox_Click To avoid dialog box on startup check for ComNo$ which will not be prensent at startupp Make this setting the default? Write Prefix data to ADIALER.INI to make it defaultt Prefix ADIALER.INI On/Off PrefixTxtBox_Change Write Prefix string to ADIALER.INI to make it default Prefix ADIALER.INI Prefix String QuitBut_Click ReDialBut_Click TeleListBox_DblClick Text1_Change Write Prefix string to ADIALER.INI to make it default Prefix ADIALER.INI Prefix String TimeBox_MouseDown h:mm am/pm TimeBut_Click h:mm am/pm Delay loop for one secondd Current Time