WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

WinBatch
Samples from Users
plus
Deltree Examples
plus
Detect Keyboard Tricks
plus
DHCP
plus
Dialogs
plus
Encryption
plus
Event Logs
plus
File Version and Dir Mgmt
plus
Games
plus
HTML
plus
MS Access
plus
Network
plus
NSLookup
plus
Registry
plus
Syntax Checker
plus
System Information
plus
Telnet

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Email Error Snapshot 

 Keywords: Snapshot Screen Shot BMP Error Email  
;============================================================
;============================================================
;============================================================




#DefineSubRoutine InitDialogConstants()
   ;DialogprocOptions Constants
   MSG_INIT=0                ; The one-time initialization
   MSG_TIMER=1               ; Timer event
   MSG_BUTTONPUSHED=2        ; Pushbutton or Picturebutton
   MSG_RADIOPUSHED=3         ; Radiobutton clicked
   MSG_CHECKBOX=4            ; Checkbox clicked
   MSG_EDITBOX=5             ; Editbox or Multilinebox
   MSG_FILESELECT=6          ; Filelistbox
   MSG_ITEMSELECT=7          ; Itembox
   MSG_COMBOCHANGE=8         ; Combobox/Droplistbox
   MSG_CALENDAR=9            ; Calendar date change
   MSG_SPINNER=10            ; Spinner number change
   MSG_CLOSEVIA49=11         ; Close clicked (Enabled via DialogProcOptions 1002
   MSG_FILEBOXDOUBLECLICK=12 ; Get double-click message on a FileListBox
   MSG_ITEMBOXDOUBLECLICK=13 ; Get double-click message on an ItemBox
   MSG_COMEVENT=14           ; COMCONTROL Event notification from DialogObject (NOT DialogProcOptions)

   DPO_DISABLESTATE=1000     ; codes -1=GetSetting 0=EnableDialog 1=DisableDialog
   DPO_CHANGEBACKGROUND=1001 ; -1=Get Current otherise bitmap or color string
   DPO_CHANGESYSMENU=1002    ; -1=Get Current 0=none 1=close 2=close/min 3=close/max 4=close/min/max
   DPO_CHANGETITLE=1003      ; Set/Get Dialog Title - (-1 to get)

   ;DialogControlState Constants
   DCSTATE_SETFOCUS=1        ; Give Control Focus
   DCSTATE_QUERYSTYLE=2      ; Query control's style
   DCSTATE_ADDSTYLE=3        ; Add control style
   DCSTATE_REMOVESTYLE=4     ; Remove control style
   DCSTATE_GETFOCUS=5        ; Get control that has focus
   DCSTATE_MOVEMOUSEOVER=6   ; Move the mouse over the control

   DCSTYLE_DEFAULT=0         ; Set Default Style
   DCSTYLE_INVISIBLE=1       ; Set Control Invisible
   DCSTYLE_DISABLED=2        ; Set Control Disabled
   DCSTYLE_NOUSERDATA=4      ; Note: Setable via DialogControlState function ONLY SPINNER control only
   DCSTYLE_READONLY=8        ; Sets control to read-only (user cannot type in data) EDITBOX MULTILINEBOX SPINNER
   DCSTYLE_PASSWORD=16       ; Sets 'password mode' where only *'s are displayed EDITBOX
   DCSTYLE_DEFAULTBUTTON=32  ; Sets a button as the default button PUSHBUTTON PICTUREBUTTON
   DCSTYLE_DIGITSONLY=64     ; Set edit box to accept digits only EDITMOX MULTILINEBOX
   DCSTYLE_FLAT=128          ; Makes a 'flat' hyperlink-looking button PUSHBUTTON PICTUREBUTTON
   DCSTYLE_NOADJUST=256      ; Turns off auto-height adjustment  ITEMBOX FILELISTBOX
   DCSTYLE_TEXTCENTER=512    ; Center text in control VARYTEXT STATICTEXT
   DCSTYLE_TEXTRIGHT=1024    ; Flush-Right text in control VARYTEXT STATICTEXT
   DCSTYLE_NOSELCURLEFT=2048 ; No selection, cursor left EDITBOX MULTILINEBOX
   DCSTYLE_NOSELCURRIGHT=4096; No selection, cursor right EDITBOX MULTILINEBOX

   ;DialogControlSet / DialogControlGet Constants
   DC_CHECKBOX=1             ; CHECKBOX
   DC_RADIOBUTTON=2          ; RADIOBUTTON
   DC_EDITBOX=3              ; EDITBOX MULTILINEBOX
   DC_TITLE=4                ; PICTURE RADIOBUTTON CHECKBOX PICTUREBUTTON VARYTEXT STATICTEXT GROUPBOX PUSHBUTTON
   DC_ITEMBOXCONTENTS=5      ; ITEMBOX FILELISTBOX DROPLISTBOX
   DC_ITEMBOXSELECT=6        ; ITEMBOX FILELISTBOX DROPLISTBOX
   DC_CALENDAR=7             ; CALENDAR
   DC_SPINNER=8              ; SPINNER
   DC_MULTITABSTOPS=9        ; MULTILINEBOX
   DC_ITEMSCROLLPOS=10       ; ITEMBOX FILELISTBOX
   DC_BACKGROUNDCOLOR=11     ; RADIOBUTTON CHECKBOX VARYTEXT STATICTEXT GROUPBOX PUSHBUTTON ITEMBOX FILELISTBOX DROPLISTBOX SPINNER EDITBOX MULTILINEBOX
   DC_PICTUREBITMAP=12       ; PICTURE PICTUREBUTTON
   DC_TEXTCOLOR=13           ; RADIOBUTTON CHECKBOX VARYTEXT STATICTEXT GROUPBOX PUSHBUTTON ITEMBOX FIELLISTBOX DROPLISTBOX SPINNER EDITBOX MULTILINEBOX
   DC_ITEMBOXADD=14          ; ITEMBOX FILELISTBOX DROPLISTBOX
   DC_ITEMBOXREMOVE=15       ; ITEMBOX FILELISTBOX DROPLISTBOX
   DC_RADIOVALUE=16          ; RADIOBUTTON


   ;DialogObject constants
   DLGOBJECT_ADDEVENT=1      ; Call dialog callback when the specified event occurs
   DLGOBJECT_STOPEVENT=2     ; Stop calling dialog callback when an event previously requested with
   DLGOBJECT_GETOBJECT=3     ; Return an object references to the specified control
   DLGOBJECT_GETPICTURE=4    ; Create and return an object reference to a picture object

   ;Return code constants
   RET_DO_CANCEL=0           ; Cancels dialog
   RET_DO_DEFAULT= -1        ; Continue with default processing for control
   RET_DO_NOT_EXIT= -2       ; Do not exit the dialog
   Return
#EndSubRoutine
;============================================================
;============================================================
;============================================================


#DefineFunction MyDialogCallbackProc(MyDialog_Handle,MyDialog_Message,MyDialog_Name,MyDialog_EventInfo,rsvd)
InitDialogConstants()                                       ; Initialize Dialog Constants
   ON_EQUAL = @TRUE                                         ; Initialize variable ON_EQUAL
   Switch MyDialog_Message                                  ; Switch based on Dialog Message type
      Case MSG_INIT                                         ; Standard Initialization message
;         DialogProcOptions(MyDialog_Handle,MSG_TIMER,1000)
         DialogProcOptions(MyDialog_Handle,MSG_BUTTONPUSHED,@TRUE)
         DialogProcOptions(MyDialog_Handle,DPO_CHANGESYSMENU,4) ; Add System Menu Buttons 4 = close, minimize and maximize
;         DialogProcOptions(MyDialog_Handle,MSG_EDITBOX,@TRUE)
         Return(RET_DO_DEFAULT)

     Case MSG_BUTTONPUSHED
        Switch ON_EQUAL
           Case MyDialog_Name == "PushButton_OK"           ; ID "PushButton_OK" Send Snapshot

               ;Initialize variables
               dialogtitle = `Error Snapshot`
               attachment = "d:\temp\screenshot.bmp"
               host = "mail.hollywood.com"
               fromaddr = "steve@hollywood.com"
               userid = ""
               password = ""
               port = ""
               cclist=""
               bcclist=""
               subject="Snapshot of error message"
               mymsg="<html><head><title>Error messsage Snapshot</title></head><body>Support,<BR>Please see attached error.<B>Thank you,<BB>Loyal User</body></html>"
               flags="h"

               ; Hide Dialog
               WinHide( dialogtitle )

               ; Take snapshot and save to file
               If FileExist(attachment) Then FileDelete(attachment) ;delete any previous attachments
               ;Takes a fresh bitmap snapshot of the screen and pastes it to the clipboard.
               Snapshot(0)
               ;returns the size of buffer needed for a subsequent BinaryAlloc,
               ;but doesn't attempt to place the contents of clipboard into a buffer
               size=BinaryClipGet(0,8)
               ;allocates a data buffer
               bb=BinaryAlloc(size)
               ;read file format type CF_DIB
               BinaryClipGet(bb,8)
               ; need to add first 14 bytes to make it
               ; a BMP file format
               bmpdatasize=14
               bb2=BinaryAlloc(size + bmpdatasize)
               ;The characters identifying the bitmap.'BM'
               BinaryPokeStr(bb2, 0, "BM")
               ;Complete file size in bytes.
               BinaryPoke4(bb2,2,size + bmpdatasize)
               ;Reserved
               BinaryPoke4(bb2,6,0)
               ;Data offset
               headersize=BinaryPeek4(bb,0)
               dataoffset = headersize + bmpdatasize
               BinaryPoke4(bb2,10,dataoffset)
               BinaryCopy(bb2,bmpdatasize,bb,0,size)
               BinaryWrite(bb2,attachment)
               BinaryFree(bb)
               BinaryFree(bb2)

               ; Normalize/Show Dialog
               WinShow(dialogtitle)

               ; Email snapshot
               AddExtender("WWPST44I.DLL")
               tolist = DialogControlGet( MyDialog_Handle, 'EditBox_1', DC_EDITBOX )
               If tolist == ""
                  Pause("Notice","Please specify an email address to send the error capture to")
                 Return(RET_DO_NOT_EXIT)
               EndIf
               kInit(host,fromaddr,userid,password,port)
               kDest(tolist,cclist,bcclist)
               ret = kSendText(subject,mymsg,attachment,flags)
               If ret == 0
                  errline=kStatusInfo()
                  Message("ErrLine",errline)
               EndIf
              Return(RET_DO_DEFAULT)

           Case MyDialog_Name == "PushButton_Cancel"       ; ID "PushButton_Cancel"  PushButton_Cancel
              Return(RET_DO_CANCEL)

        EndSwitch                                          ; MyDialog_Name
        Return(RET_DO_DEFAULT)

;     case MSG_EDITBOX                                      ; ID "EditBox_1"  EditBox_1 ebVariable1
;        return(RET_DO_DEFAULT)

   EndSwitch                                                ; MyDialog_Message
   Return(RET_DO_DEFAULT)
#EndFunction                                                ; End of Dialog Callback MyDialogCallbackProc

;============================================================
;============================================================
;============================================================

IntControl(1002,0,0,0,0) ; No icon
IntControl(1003,0,0,0,0) ; No WinBatch Processing Window


MyDialogFormat=`WWWDLGED,6.2`

MyDialogCaption=`Error Snapshot`
MyDialogX=176
MyDialogY=178
MyDialogWidth=236
MyDialogHeight=087
MyDialogNumControls=005
MyDialogProcedure=`MyDialogCallbackProc`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0

MyDialog001=`057,053,054,012,PUSHBUTTON,"PushButton_OK",DEFAULT,"Send Snapshot",1,10,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`133,053,036,012,PUSHBUTTON,"PushButton_Cancel",DEFAULT,"Cancel",0,20,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`053,009,118,016,STATICTEXT,"StaticText_1",DEFAULT,"Press the Snapshot button get the contents of the error and send them to tech support.",DEFAULT,30,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog004=`075,031,116,012,EDITBOX,"EditBox_1",ebVariable1,"support@winbatch.com",DEFAULT,40,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog005=`035,031,038,010,STATICTEXT,"StaticText_2",DEFAULT,"Support Email",DEFAULT,50,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("MyDialog")


Article ID:   W18245

Filename:   Email Error Snapshot .txt
File Created: 2009:06:15:10:39:26
Last Updated: 2009:06:15:10:39:26