Cidclient
This commit is contained in:
dcp1990
parent
f26ca5da9f
commit
7c38aa993b
93
cidclient/CIDClient.PDM
Normal file
93
cidclient/CIDClient.PDM
Normal file
@ -0,0 +1,93 @@
|
|||||||
|
[Root]
|
||||||
|
Most Recent Package=CIDClient Script
|
||||||
|
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Root]
|
||||||
|
SubWizProgID=PDWizard.SetupPkgSubWiz
|
||||||
|
BuildFolder=D:\Programming\cidclient\Package
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Configure DAO ISAMs]
|
||||||
|
Applicable=No
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Configure DAO ODBC]
|
||||||
|
JetWorkspace=
|
||||||
|
ODBCDirect=
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Files Found]
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Files Released]
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Missing Dependency Information]
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Out-of-Date Dependency Information]
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Files Added]
|
||||||
|
C:\WINDOWS\Fonts\lcd.ttf=
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Files Removed]
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Files In Project]
|
||||||
|
D:\Programming\cidclient\CIDClient.exe=Yes
|
||||||
|
C:\WINDOWS\system32\MSVBVM60.DLL=Yes
|
||||||
|
C:\WINDOWS\system32\OLEAUT32.DLL=Yes
|
||||||
|
C:\WINDOWS\system32\OLEPRO32.DLL=Yes
|
||||||
|
C:\WINDOWS\system32\ASYCFILT.DLL=Yes
|
||||||
|
C:\WINDOWS\system32\STDOLE2.TLB=Yes
|
||||||
|
C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=Yes
|
||||||
|
C:\WINDOWS\system32\MSWINSCK.OCX=Yes
|
||||||
|
C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=Yes
|
||||||
|
C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=Yes
|
||||||
|
C:\WINDOWS\system32\VB6STKIT.DLL=Yes
|
||||||
|
C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=Yes
|
||||||
|
C:\WINDOWS\Fonts\lcd.ttf=Yes
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Configure Registry Files]
|
||||||
|
Applicable=No
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Configure Remote Servers]
|
||||||
|
Applicable=No
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Install Locations]
|
||||||
|
D:\Programming\cidclient\CIDClient.exe=$(AppPath)
|
||||||
|
C:\WINDOWS\system32\MSVBVM60.DLL=$(WinSysPathSysFile)
|
||||||
|
C:\WINDOWS\system32\OLEAUT32.DLL=$(WinSysPathSysFile)
|
||||||
|
C:\WINDOWS\system32\OLEPRO32.DLL=$(WinSysPathSysFile)
|
||||||
|
C:\WINDOWS\system32\ASYCFILT.DLL=$(WinSysPathSysFile)
|
||||||
|
C:\WINDOWS\system32\STDOLE2.TLB=$(WinSysPathSysFile)
|
||||||
|
C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=$(WinSysPathSysFile)
|
||||||
|
C:\WINDOWS\system32\MSWINSCK.OCX=$(WinSysPath)
|
||||||
|
C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=$(AppPath)
|
||||||
|
C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=$(WinPath)
|
||||||
|
C:\WINDOWS\system32\VB6STKIT.DLL=$(WinSysPathSysFile)
|
||||||
|
C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=$(WinPath)
|
||||||
|
C:\WINDOWS\Fonts\lcd.ttf=$(Font)
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Configure Shared Files]
|
||||||
|
Applicable=Yes
|
||||||
|
D:\Programming\cidclient\CIDClient.exe=No
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Distribution]
|
||||||
|
Type=single
|
||||||
|
Size=
|
||||||
|
Title=CIDClient
|
||||||
|
|
||||||
|
[Package|CIDClient Script|IconGroups]
|
||||||
|
Group0=CIDClient
|
||||||
|
PrivateGroup0=False
|
||||||
|
Parent0=$(Programs)
|
||||||
|
|
||||||
|
[Package|CIDClient Script|CIDClient]
|
||||||
|
Icon1=CIDClient.exe
|
||||||
|
Title1=CIDClient Daemon
|
||||||
|
StartIn1=$(AppPath)
|
||||||
|
Key1=Icon1
|
||||||
|
|
||||||
|
[Package|CIDClient Script|Package]
|
||||||
|
PackageFolder=D:\Programming\cidclient\Package
|
||||||
|
ProjectFolder=D:\Programming\cidclient
|
||||||
|
ServerSideCab=
|
||||||
|
File1=D:\Programming\cidclient\Package\setup.exe
|
||||||
|
File2=D:\Programming\cidclient\Package\Setup.Lst
|
||||||
|
File3=D:\Programming\cidclient\Package\CIDClient.CAB
|
||||||
|
Handler1=PDWizard.FolderDplySubWiz
|
||||||
|
Handler2=PDWizard.WebPostDplySubWiz
|
||||||
45
cidclient/CIDClient.vbp
Normal file
45
cidclient/CIDClient.vbp
Normal file
@ -0,0 +1,45 @@
|
|||||||
|
Type=Exe
|
||||||
|
Form=frmSock.frm
|
||||||
|
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\stdole2.tlb#OLE Automation
|
||||||
|
Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
|
||||||
|
Module=modMain; modMain.bas
|
||||||
|
Form=frmPopup.frm
|
||||||
|
Module=sysTrayMod; sysTrayMod.bas
|
||||||
|
IconForm="frmSock"
|
||||||
|
Startup="Sub Main"
|
||||||
|
HelpFile=""
|
||||||
|
Title="CIDClient"
|
||||||
|
ExeName32="CIDClient.exe"
|
||||||
|
Command32=""
|
||||||
|
Name="CIDClient"
|
||||||
|
HelpContextID="0"
|
||||||
|
CompatibleMode="0"
|
||||||
|
MajorVer=0
|
||||||
|
MinorVer=1
|
||||||
|
RevisionVer=0
|
||||||
|
AutoIncrementVer=0
|
||||||
|
ServerSupportFiles=0
|
||||||
|
VersionComments="Use with CIDServ, the FreeBSD daemon written in C. http://www.theamigan.net/cid.html"
|
||||||
|
VersionCompanyName="KiwiSoft"
|
||||||
|
VersionFileDescription="Windows Client. X11 client also available."
|
||||||
|
VersionLegalCopyright="BSD License....(C)2003-2005, Dan Ponte"
|
||||||
|
VersionLegalTrademarks="None. I'm too cool for that bullshit."
|
||||||
|
VersionProductName="cidclient for Windows"
|
||||||
|
CompilationType=0
|
||||||
|
OptimizationType=0
|
||||||
|
FavorPentiumPro(tm)=0
|
||||||
|
CodeViewDebugInfo=0
|
||||||
|
NoAliasing=0
|
||||||
|
BoundsCheck=0
|
||||||
|
OverflowCheck=0
|
||||||
|
FlPointCheck=0
|
||||||
|
FDIVCheck=0
|
||||||
|
UnroundedFP=0
|
||||||
|
StartMode=0
|
||||||
|
Unattended=0
|
||||||
|
Retained=0
|
||||||
|
ThreadPerObject=0
|
||||||
|
MaxNumberOfThreads=1
|
||||||
|
|
||||||
|
[MS Transaction Server]
|
||||||
|
AutoRefresh=1
|
||||||
4
cidclient/CIDClient.vbw
Normal file
4
cidclient/CIDClient.vbw
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
frmSock = 0, 0, 752, 387, , 110, 145, 862, 532, C
|
||||||
|
modMain = 132, 174, 884, 561,
|
||||||
|
frmPopup = 44, 58, 796, 445, , 22, 29, 774, 416, C
|
||||||
|
sysTrayMod = 110, 145, 862, 532,
|
||||||
BIN
cidclient/COPYRIGHT.rtf
Normal file
BIN
cidclient/COPYRIGHT.rtf
Normal file
Binary file not shown.
BIN
cidclient/Ring.wav
Normal file
BIN
cidclient/Ring.wav
Normal file
Binary file not shown.
212
cidclient/cidclient.nsi
Normal file
212
cidclient/cidclient.nsi
Normal file
@ -0,0 +1,212 @@
|
|||||||
|
; $Amigan: phoned/cidclient/cidclient.nsi,v 1.1 2005/06/23 02:29:18 dcp1990 Exp $
|
||||||
|
!define PRODUCT_NAME "CIDClient"
|
||||||
|
!define PRODUCT_VERSION "0.1"
|
||||||
|
!define PRODUCT_PUBLISHER "Dan Ponte"
|
||||||
|
!define PRODUCT_WEB_SITE "http://www.theamigan.net/cid.html"
|
||||||
|
!define PRODUCT_DIR_REGKEY "Software\Microsoft\Windows\CurrentVersion\App Paths\CIDClient.exe"
|
||||||
|
!define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"
|
||||||
|
!define PRODUCT_UNINST_ROOT_KEY "HKLM"
|
||||||
|
!define PRODUCT_STARTMENU_REGVAL "NSIS:StartMenuDir"
|
||||||
|
|
||||||
|
SetCompressor bzip2
|
||||||
|
|
||||||
|
; MUI 1.67 compatible ------
|
||||||
|
!include "MUI.nsh"
|
||||||
|
|
||||||
|
; MUI Settings
|
||||||
|
!define MUI_ABORTWARNING
|
||||||
|
!define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\modern-install.ico"
|
||||||
|
!define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\modern-uninstall.ico"
|
||||||
|
|
||||||
|
; Language Selection Dialog Settings
|
||||||
|
;!define MUI_LANGDLL_REGISTRY_ROOT "${PRODUCT_UNINST_ROOT_KEY}"
|
||||||
|
;!define MUI_LANGDLL_REGISTRY_KEY "${PRODUCT_UNINST_KEY}"
|
||||||
|
;!define MUI_LANGDLL_REGISTRY_VALUENAME "NSIS:Language"
|
||||||
|
|
||||||
|
; Welcome page
|
||||||
|
!insertmacro MUI_PAGE_WELCOME
|
||||||
|
; License page
|
||||||
|
!define MUI_LICENSEPAGE_RADIOBUTTONS
|
||||||
|
!insertmacro MUI_PAGE_LICENSE "COPYRIGHT.rtf"
|
||||||
|
; Components page
|
||||||
|
!insertmacro MUI_PAGE_COMPONENTS
|
||||||
|
; Directory page
|
||||||
|
!insertmacro MUI_PAGE_DIRECTORY
|
||||||
|
; Start menu page
|
||||||
|
var ICONS_GROUP
|
||||||
|
!define MUI_STARTMENUPAGE_NODISABLE
|
||||||
|
!define MUI_STARTMENUPAGE_DEFAULTFOLDER "CIDClient"
|
||||||
|
!define MUI_STARTMENUPAGE_REGISTRY_ROOT "${PRODUCT_UNINST_ROOT_KEY}"
|
||||||
|
!define MUI_STARTMENUPAGE_REGISTRY_KEY "${PRODUCT_UNINST_KEY}"
|
||||||
|
!define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "${PRODUCT_STARTMENU_REGVAL}"
|
||||||
|
!insertmacro MUI_PAGE_STARTMENU Application $ICONS_GROUP
|
||||||
|
; Instfiles page
|
||||||
|
!insertmacro MUI_PAGE_INSTFILES
|
||||||
|
; Finish page
|
||||||
|
!define MUI_FINISHPAGE_RUN "$INSTDIR\CIDClient.exe"
|
||||||
|
!define MUI_FINISHPAGE_NOAUTOCLOSE
|
||||||
|
!insertmacro MUI_PAGE_FINISH
|
||||||
|
|
||||||
|
; Uninstaller pages
|
||||||
|
!insertmacro MUI_UNPAGE_INSTFILES
|
||||||
|
|
||||||
|
; Language files
|
||||||
|
!insertmacro MUI_LANGUAGE "English"
|
||||||
|
|
||||||
|
|
||||||
|
; Reserve files
|
||||||
|
!insertmacro MUI_RESERVEFILE_INSTALLOPTIONS
|
||||||
|
|
||||||
|
; MUI end ------
|
||||||
|
|
||||||
|
Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
|
||||||
|
OutFile "cidcSetup.exe"
|
||||||
|
InstallDir "$PROGRAMFILES\CIDClient"
|
||||||
|
InstallDirRegKey HKLM "${PRODUCT_DIR_REGKEY}" ""
|
||||||
|
ShowInstDetails show
|
||||||
|
ShowUnInstDetails show
|
||||||
|
|
||||||
|
|
||||||
|
Function DownloadFiles3
|
||||||
|
NSISdl::download http://download.microsoft.com/download/vb60pro/Redist/sp5/WIN98Me/EN-US/vbrun60sp5.exe vbrun60sp5.exe
|
||||||
|
Pop $R0 ;Get the return value
|
||||||
|
StrCmp $R0 "success" +3
|
||||||
|
FunctionEnd
|
||||||
|
|
||||||
|
Function ConnectInternet
|
||||||
|
Push $R0
|
||||||
|
|
||||||
|
ClearErrors
|
||||||
|
Dialer::AttemptConnect
|
||||||
|
IfErrors noie3
|
||||||
|
|
||||||
|
Pop $R0
|
||||||
|
StrCmp $R0 "online" connected
|
||||||
|
MessageBox MB_OK|MB_ICONSTOP "Cannot connect to the internet."
|
||||||
|
Quit
|
||||||
|
|
||||||
|
noie3:
|
||||||
|
|
||||||
|
; IE3 not installed
|
||||||
|
MessageBox MB_OK|MB_ICONINFORMATION "Please connect to the internet now. Setup needs to download and install VB runtime libraries."
|
||||||
|
|
||||||
|
connected:
|
||||||
|
Pop $R0
|
||||||
|
FunctionEnd
|
||||||
|
|
||||||
|
Section "Main" SEC01
|
||||||
|
SectionIn RO
|
||||||
|
IfFileExists "$SYSDIR\msvbvm60.dll" NoErrorMsg ErrorHere
|
||||||
|
ErrorHere:
|
||||||
|
Call ConnectInternet
|
||||||
|
Call DownloadFiles3
|
||||||
|
Exec "$SYSDIR\vbrun60sp5.exe /Q"
|
||||||
|
NoErrorMsg:
|
||||||
|
SetOutPath "$INSTDIR"
|
||||||
|
SetOverwrite ifnewer
|
||||||
|
File "CIDClient.exe"
|
||||||
|
File "Ring.wav"
|
||||||
|
File "COPYRIGHT.txt"
|
||||||
|
File "faxmachine.ico"
|
||||||
|
File "fax.bmp"
|
||||||
|
File "CIDClient.exe.MANIFEST"
|
||||||
|
|
||||||
|
; Shortcuts
|
||||||
|
!insertmacro MUI_STARTMENU_WRITE_BEGIN Application
|
||||||
|
CreateDirectory "$SMPROGRAMS\$ICONS_GROUP"
|
||||||
|
CreateShortCut "$SMPROGRAMS\$ICONS_GROUP\CIDClient.lnk" "$INSTDIR\CIDClient.exe"
|
||||||
|
CreateShortCut "$SMPROGRAMS\Startup\CIDClient.lnk" "$INSTDIR\CIDClient.exe"
|
||||||
|
!insertmacro MUI_STARTMENU_WRITE_END
|
||||||
|
SectionEnd
|
||||||
|
|
||||||
|
Section "Source" SEC02
|
||||||
|
SetOutPath "$INSTDIR\src"
|
||||||
|
File "CIDClient.vbp"
|
||||||
|
File "Ring.wav"
|
||||||
|
File "modMain.bas"
|
||||||
|
File "frmSock.frx"
|
||||||
|
File "frmSock.frm"
|
||||||
|
File "frmPopup.frx"
|
||||||
|
File "frmPopup.frm"
|
||||||
|
File "faxmachine.ico"
|
||||||
|
File "fax.bmp"
|
||||||
|
File "CIDClient.vbw"
|
||||||
|
File "sysTrayMod.bas"
|
||||||
|
|
||||||
|
; Shortcuts
|
||||||
|
!insertmacro MUI_STARTMENU_WRITE_BEGIN Application
|
||||||
|
!insertmacro MUI_STARTMENU_WRITE_END
|
||||||
|
SectionEnd
|
||||||
|
|
||||||
|
Section -AdditionalIcons
|
||||||
|
SetOutPath $INSTDIR
|
||||||
|
!insertmacro MUI_STARTMENU_WRITE_BEGIN Application
|
||||||
|
WriteIniStr "$INSTDIR\${PRODUCT_NAME}.url" "InternetShortcut" "URL" "${PRODUCT_WEB_SITE}"
|
||||||
|
CreateShortCut "$SMPROGRAMS\$ICONS_GROUP\Website.lnk" "$INSTDIR\${PRODUCT_NAME}.url"
|
||||||
|
CreateShortCut "$SMPROGRAMS\$ICONS_GROUP\Uninstall.lnk" "$INSTDIR\uninst.exe"
|
||||||
|
!insertmacro MUI_STARTMENU_WRITE_END
|
||||||
|
SectionEnd
|
||||||
|
|
||||||
|
Section -Post
|
||||||
|
WriteUninstaller "$INSTDIR\uninst.exe"
|
||||||
|
WriteRegStr HKLM "${PRODUCT_DIR_REGKEY}" "" "$INSTDIR\CIDClient.exe"
|
||||||
|
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"
|
||||||
|
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"
|
||||||
|
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayIcon" "$INSTDIR\CIDClient.exe"
|
||||||
|
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
|
||||||
|
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}"
|
||||||
|
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"
|
||||||
|
SectionEnd
|
||||||
|
|
||||||
|
; Section descriptions
|
||||||
|
!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
|
||||||
|
!insertmacro MUI_DESCRIPTION_TEXT ${SEC01} "Main program"
|
||||||
|
!insertmacro MUI_DESCRIPTION_TEXT ${SEC02} "VB6 source code"
|
||||||
|
!insertmacro MUI_FUNCTION_DESCRIPTION_END
|
||||||
|
|
||||||
|
|
||||||
|
Function un.onUninstSuccess
|
||||||
|
HideWindow
|
||||||
|
MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) was successfully removed from your computer."
|
||||||
|
FunctionEnd
|
||||||
|
|
||||||
|
Function un.onInit
|
||||||
|
MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "Are you sure you want to completely remove $(^Name) and all of its components?" IDYES +2
|
||||||
|
Abort
|
||||||
|
FunctionEnd
|
||||||
|
|
||||||
|
Section Uninstall
|
||||||
|
!insertmacro MUI_STARTMENU_GETFOLDER "Application" $ICONS_GROUP
|
||||||
|
Delete "$INSTDIR\${PRODUCT_NAME}.url"
|
||||||
|
Delete "$INSTDIR\uninst.exe"
|
||||||
|
Delete "$INSTDIR\src\sysTrayMod.bas"
|
||||||
|
Delete "$INSTDIR\src\CIDClient.vbw"
|
||||||
|
Delete "$INSTDIR\src\fax.bmp"
|
||||||
|
Delete "$INSTDIR\src\faxmachine.ico"
|
||||||
|
Delete "$INSTDIR\src\frmPopup.frm"
|
||||||
|
Delete "$INSTDIR\src\frmPopup.frx"
|
||||||
|
Delete "$INSTDIR\src\frmSock.frm"
|
||||||
|
Delete "$INSTDIR\src\frmSock.frx"
|
||||||
|
Delete "$INSTDIR\src\modMain.bas"
|
||||||
|
Delete "$INSTDIR\src\Ring.wav"
|
||||||
|
Delete "$INSTDIR\src\CIDClient.vbp"
|
||||||
|
Delete "$INSTDIR\CIDClient.exe.MANIFEST"
|
||||||
|
Delete "$INSTDIR\fax.bmp"
|
||||||
|
Delete "$INSTDIR\faxmachine.ico"
|
||||||
|
Delete "$INSTDIR\COPYRIGHT.txt"
|
||||||
|
Delete "$INSTDIR\Ring.wav"
|
||||||
|
Delete "$INSTDIR\CIDClient.exe"
|
||||||
|
|
||||||
|
Delete "$SMPROGRAMS\$ICONS_GROUP\Uninstall.lnk"
|
||||||
|
Delete "$SMPROGRAMS\$ICONS_GROUP\Website.lnk"
|
||||||
|
Delete "$STARTMENU\Startup.lnk"
|
||||||
|
Delete "$SMPROGRAMS\$ICONS_GROUP\CIDClient.lnk"
|
||||||
|
|
||||||
|
RMDir "$SMPROGRAMS\$ICONS_GROUP"
|
||||||
|
RMDir "$INSTDIR\src"
|
||||||
|
RMDir "$INSTDIR"
|
||||||
|
|
||||||
|
DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"
|
||||||
|
DeleteRegKey HKLM "${PRODUCT_DIR_REGKEY}"
|
||||||
|
SetAutoClose true
|
||||||
|
SectionEnd
|
||||||
BIN
cidclient/fax.bmp
Normal file
BIN
cidclient/fax.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.3 KiB |
BIN
cidclient/faxmachine.ico
Normal file
BIN
cidclient/faxmachine.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 23 KiB |
182
cidclient/frmPopup.frm
Normal file
182
cidclient/frmPopup.frm
Normal file
@ -0,0 +1,182 @@
|
|||||||
|
VERSION 5.00
|
||||||
|
Begin VB.Form frmPopup
|
||||||
|
BorderStyle = 1 'Fixed Single
|
||||||
|
Caption = "Incoming Call"
|
||||||
|
ClientHeight = 3210
|
||||||
|
ClientLeft = 45
|
||||||
|
ClientTop = 435
|
||||||
|
ClientWidth = 4695
|
||||||
|
ControlBox = 0 'False
|
||||||
|
Icon = "frmPopup.frx":0000
|
||||||
|
LinkTopic = "Form1"
|
||||||
|
MaxButton = 0 'False
|
||||||
|
MinButton = 0 'False
|
||||||
|
ScaleHeight = 3210
|
||||||
|
ScaleWidth = 4695
|
||||||
|
StartUpPosition = 3 'Windows Default
|
||||||
|
Begin VB.CommandButton telemarketer
|
||||||
|
Caption = "Telemarketer-ize"
|
||||||
|
Height = 255
|
||||||
|
Left = 1680
|
||||||
|
TabIndex = 6
|
||||||
|
Top = 2280
|
||||||
|
Width = 1455
|
||||||
|
End
|
||||||
|
Begin VB.Timer Timer1
|
||||||
|
Interval = 1000
|
||||||
|
Left = 3960
|
||||||
|
Top = 1440
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdOK
|
||||||
|
Caption = "&OK"
|
||||||
|
Default = -1 'True
|
||||||
|
Height = 495
|
||||||
|
Left = 120
|
||||||
|
TabIndex = 5
|
||||||
|
Top = 2640
|
||||||
|
Width = 4455
|
||||||
|
End
|
||||||
|
Begin VB.Shape Shape1
|
||||||
|
BorderColor = &H80000001&
|
||||||
|
FillColor = &H80000003&
|
||||||
|
FillStyle = 0 'Solid
|
||||||
|
Height = 375
|
||||||
|
Index = 1
|
||||||
|
Left = 4200
|
||||||
|
Shape = 3 'Circle
|
||||||
|
Top = 120
|
||||||
|
Width = 375
|
||||||
|
End
|
||||||
|
Begin VB.Shape Shape1
|
||||||
|
BorderColor = &H80000001&
|
||||||
|
FillColor = &H80000003&
|
||||||
|
FillStyle = 0 'Solid
|
||||||
|
Height = 375
|
||||||
|
Index = 0
|
||||||
|
Left = 120
|
||||||
|
Shape = 3 'Circle
|
||||||
|
Top = 120
|
||||||
|
Width = 375
|
||||||
|
End
|
||||||
|
Begin VB.Label lblTime
|
||||||
|
Caption = "14:30"
|
||||||
|
BeginProperty Font
|
||||||
|
Name = "Arial"
|
||||||
|
Size = 15.75
|
||||||
|
Charset = 0
|
||||||
|
Weight = 400
|
||||||
|
Underline = 0 'False
|
||||||
|
Italic = 0 'False
|
||||||
|
Strikethrough = 0 'False
|
||||||
|
EndProperty
|
||||||
|
Height = 375
|
||||||
|
Left = 1080
|
||||||
|
TabIndex = 4
|
||||||
|
Top = 1200
|
||||||
|
Width = 855
|
||||||
|
End
|
||||||
|
Begin VB.Label lblDate
|
||||||
|
Caption = "01/01"
|
||||||
|
BeginProperty Font
|
||||||
|
Name = "Arial"
|
||||||
|
Size = 15.75
|
||||||
|
Charset = 0
|
||||||
|
Weight = 400
|
||||||
|
Underline = 0 'False
|
||||||
|
Italic = 0 'False
|
||||||
|
Strikethrough = 0 'False
|
||||||
|
EndProperty
|
||||||
|
Height = 375
|
||||||
|
Left = 2880
|
||||||
|
TabIndex = 3
|
||||||
|
Top = 1200
|
||||||
|
Width = 855
|
||||||
|
End
|
||||||
|
Begin VB.Label lblNumb
|
||||||
|
Caption = "(###) ###-####"
|
||||||
|
BeginProperty Font
|
||||||
|
Name = "Arial"
|
||||||
|
Size = 27.75
|
||||||
|
Charset = 0
|
||||||
|
Weight = 400
|
||||||
|
Underline = 0 'False
|
||||||
|
Italic = 0 'False
|
||||||
|
Strikethrough = 0 'False
|
||||||
|
EndProperty
|
||||||
|
Height = 735
|
||||||
|
Left = 240
|
||||||
|
TabIndex = 2
|
||||||
|
Top = 1680
|
||||||
|
Width = 4455
|
||||||
|
End
|
||||||
|
Begin VB.Label lblName
|
||||||
|
Caption = "John Smith"
|
||||||
|
BeginProperty Font
|
||||||
|
Name = "MS Sans Serif"
|
||||||
|
Size = 18
|
||||||
|
Charset = 0
|
||||||
|
Weight = 700
|
||||||
|
Underline = 0 'False
|
||||||
|
Italic = 0 'False
|
||||||
|
Strikethrough = 0 'False
|
||||||
|
EndProperty
|
||||||
|
Height = 375
|
||||||
|
Left = 1200
|
||||||
|
TabIndex = 1
|
||||||
|
Top = 720
|
||||||
|
Width = 3375
|
||||||
|
End
|
||||||
|
Begin VB.Label Label1
|
||||||
|
Alignment = 2 'Center
|
||||||
|
Caption = "Incoming Call"
|
||||||
|
BeginProperty Font
|
||||||
|
Name = "Verdana"
|
||||||
|
Size = 24
|
||||||
|
Charset = 0
|
||||||
|
Weight = 400
|
||||||
|
Underline = 0 'False
|
||||||
|
Italic = 0 'False
|
||||||
|
Strikethrough = 0 'False
|
||||||
|
EndProperty
|
||||||
|
Height = 615
|
||||||
|
Left = 600
|
||||||
|
TabIndex = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 3375
|
||||||
|
End
|
||||||
|
Begin VB.Image Image1
|
||||||
|
Height = 855
|
||||||
|
Left = 120
|
||||||
|
Picture = "frmPopup.frx":5C12
|
||||||
|
Stretch = -1 'True
|
||||||
|
Top = 600
|
||||||
|
Width = 855
|
||||||
|
End
|
||||||
|
End
|
||||||
|
Attribute VB_Name = "frmPopup"
|
||||||
|
Attribute VB_GlobalNameSpace = False
|
||||||
|
Attribute VB_Creatable = False
|
||||||
|
Attribute VB_PredeclaredId = True
|
||||||
|
Attribute VB_Exposed = False
|
||||||
|
Dim number As Integer
|
||||||
|
|
||||||
|
Private Sub cmdOK_Click()
|
||||||
|
Timer1.Enabled = False
|
||||||
|
number = 0
|
||||||
|
frmPopup.Hide
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub telemarketer_Click()
|
||||||
|
frmSock.wsController.SendData "AHU" & Chr(10)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Timer1_Timer()
|
||||||
|
number = number + 1
|
||||||
|
If number = 15 Then
|
||||||
|
number = 0
|
||||||
|
Timer1.Enabled = False
|
||||||
|
frmPopup.Hide
|
||||||
|
End If
|
||||||
|
frmPopup.Caption = "Incoming Call (" & 15 - number & ")"
|
||||||
|
End Sub
|
||||||
BIN
cidclient/frmPopup.frx
Normal file
BIN
cidclient/frmPopup.frx
Normal file
Binary file not shown.
143
cidclient/frmSock.frm
Normal file
143
cidclient/frmSock.frm
Normal file
@ -0,0 +1,143 @@
|
|||||||
|
VERSION 5.00
|
||||||
|
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
|
||||||
|
Begin VB.Form frmSock
|
||||||
|
BorderStyle = 1 'Fixed Single
|
||||||
|
Caption = "CIDClient"
|
||||||
|
ClientHeight = 2625
|
||||||
|
ClientLeft = 150
|
||||||
|
ClientTop = 840
|
||||||
|
ClientWidth = 4530
|
||||||
|
ControlBox = 0 'False
|
||||||
|
Icon = "frmSock.frx":0000
|
||||||
|
LinkTopic = "Form1"
|
||||||
|
MaxButton = 0 'False
|
||||||
|
MinButton = 0 'False
|
||||||
|
ScaleHeight = 2625
|
||||||
|
ScaleWidth = 4530
|
||||||
|
StartUpPosition = 3 'Windows Default
|
||||||
|
Visible = 0 'False
|
||||||
|
Begin MSWinsockLib.Winsock wsController
|
||||||
|
Left = 480
|
||||||
|
Top = 0
|
||||||
|
_ExtentX = 741
|
||||||
|
_ExtentY = 741
|
||||||
|
_Version = 393216
|
||||||
|
Protocol = 1
|
||||||
|
RemotePort = 1450
|
||||||
|
End
|
||||||
|
Begin MSWinsockLib.Winsock UDPListener
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
_ExtentX = 741
|
||||||
|
_ExtentY = 741
|
||||||
|
_Version = 393216
|
||||||
|
Protocol = 1
|
||||||
|
End
|
||||||
|
Begin VB.Menu mnuST
|
||||||
|
Caption = "mnuST"
|
||||||
|
Begin VB.Menu mnuSetServ
|
||||||
|
Caption = "&Set Server"
|
||||||
|
End
|
||||||
|
Begin VB.Menu mnuExit
|
||||||
|
Caption = "&Exit"
|
||||||
|
End
|
||||||
|
Begin VB.Menu mnuChgPrt
|
||||||
|
Caption = "&About"
|
||||||
|
End
|
||||||
|
End
|
||||||
|
End
|
||||||
|
Attribute VB_Name = "frmSock"
|
||||||
|
Attribute VB_GlobalNameSpace = False
|
||||||
|
Attribute VB_Creatable = False
|
||||||
|
Attribute VB_PredeclaredId = True
|
||||||
|
Attribute VB_Exposed = False
|
||||||
|
Dim lastdata As String
|
||||||
|
Private Declare Function sndPlaySound Lib "winmm.dll" _
|
||||||
|
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
|
||||||
|
ByVal uFlags As Long) As Long
|
||||||
|
|
||||||
|
Public nome, number, dte, tme, code As String
|
||||||
|
|
||||||
|
Private Sub mnuChgPrt_Click()
|
||||||
|
MsgBox "CIDClient by Dan Ponte" & Chr(13) & "Displays CallerID on UDP Packets generated by the" _
|
||||||
|
& Chr(13) & "modem server for Unix. BSD Style."
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub mnuExit_Click()
|
||||||
|
frmSock.UDPListener.Close
|
||||||
|
Form_Unload (0)
|
||||||
|
End
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub mnuSetServ_Click()
|
||||||
|
Dim thehost As String
|
||||||
|
thehost = InputBox("Server IP/host?", "CIDClient", wsController.RemoteHost)
|
||||||
|
If thehost = "" Then Exit Sub
|
||||||
|
wsController.RemoteHost = thehost
|
||||||
|
SaveSetting "CIDClient", "Main", "host", thehost
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Format:
|
||||||
|
'DATE:TIME:CODE:NAME:NUMBER
|
||||||
|
Private Sub UDPListener_Error(ByVal number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
|
||||||
|
MsgBox number & ":" & Description
|
||||||
|
End Sub
|
||||||
|
Private Sub UDPListener_DataArrival(ByVal bytesTotal As Long)
|
||||||
|
On Error Resume Next
|
||||||
|
UDPListener.GetData lastdata
|
||||||
|
If Left(lastdata, 4) = "RING" Then
|
||||||
|
SoundFile = App.Path & "\RING.WAV"
|
||||||
|
Result = sndPlaySound(SoundFile, 1)
|
||||||
|
Else
|
||||||
|
dte = Split(lastdata, ":")(0)
|
||||||
|
tme = Split(lastdata, ":")(1)
|
||||||
|
code = Split(lastdata, ":")(2)
|
||||||
|
nome = Split(lastdata, ":")(3)
|
||||||
|
number = Split(lastdata, ":")(4)
|
||||||
|
popupWindow dte, tme, code, number, nome
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
Public Sub popupWindow(ByVal pdt As String, ByVal ptm As String, ByVal cde As String, ByVal num As String, ByVal nom As String)
|
||||||
|
frmPopup.lblName = nom
|
||||||
|
frmPopup.lblNumb = Format(num, "(###) ###-####")
|
||||||
|
frmPopup.lblTime = Format(ptm, "##:##")
|
||||||
|
frmPopup.lblDate = Format(pdt, "##/##")
|
||||||
|
frmPopup.Show
|
||||||
|
frmPopup.Timer1 = True
|
||||||
|
frmPopup.ZOrder 0
|
||||||
|
End Sub
|
||||||
|
'THIS MAKES THE MENU POPUP WHEN THE FORM IS HIDDEN IN THE SYSTRAY'
|
||||||
|
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
|
||||||
|
Dim Sys As Long
|
||||||
|
Sys = x / Screen.TwipsPerPixelX
|
||||||
|
Select Case Sys
|
||||||
|
Case WM_RBUTTONDOWN:
|
||||||
|
Me.PopupMenu mnuST
|
||||||
|
End Select
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'THIS MAKES THE FOR DISSAPEAR/MINIMIZE TO THE SYSTRAY'
|
||||||
|
Public Sub Form_Resize()
|
||||||
|
If WindowState = vbMinimized Then
|
||||||
|
Me.Hide
|
||||||
|
Me.Refresh
|
||||||
|
With nid
|
||||||
|
.cbSize = Len(nid)
|
||||||
|
.hwnd = Me.hwnd
|
||||||
|
.uId = vbNull
|
||||||
|
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
|
||||||
|
.uCallBackMessage = WM_MOUSEMOVE
|
||||||
|
.hIcon = Me.Icon
|
||||||
|
.szTip = Me.Caption & vbNullChar
|
||||||
|
End With
|
||||||
|
Shell_NotifyIcon NIM_ADD, nid
|
||||||
|
Else
|
||||||
|
Shell_NotifyIcon NIM_DELETE, nid
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'THIS WILL KILL THE SYSTRAY ICON IF THE FORM IS UNLOADED'
|
||||||
|
Private Sub Form_Unload(Cancel As Integer)
|
||||||
|
Shell_NotifyIcon NIM_DELETE, nid
|
||||||
|
End
|
||||||
|
End Sub
|
||||||
BIN
cidclient/frmSock.frx
Normal file
BIN
cidclient/frmSock.frx
Normal file
Binary file not shown.
22
cidclient/modMain.bas
Normal file
22
cidclient/modMain.bas
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
Attribute VB_Name = "modMain"
|
||||||
|
Sub main()
|
||||||
|
Dim thehost As String
|
||||||
|
frmSock.UDPListener.Close
|
||||||
|
frmSock.UDPListener.LocalPort = 3890
|
||||||
|
frmSock.UDPListener.Bind 3890
|
||||||
|
thehost = GetSetting("CIDClient", "Main", "host", "buhwhy?")
|
||||||
|
If thehost = "buhwhy?" Then
|
||||||
|
ths:
|
||||||
|
thehost = InputBox("Server IP/host?", "CIDClient")
|
||||||
|
If thehost = "" Then MsgBox "Needs Host": GoTo ths
|
||||||
|
frmSock.wsController.RemoteHost = thehost
|
||||||
|
SaveSetting "CIDClient", "Main", "host", thehost
|
||||||
|
Else
|
||||||
|
frmSock.wsController.RemoteHost = thehost
|
||||||
|
End If
|
||||||
|
|
||||||
|
'frmSock.Hide
|
||||||
|
frmSock.WindowState = vbMinimized
|
||||||
|
frmSock.Show
|
||||||
|
frmSock.Form_Resize
|
||||||
|
End Sub
|
||||||
36
cidclient/sysTrayMod.bas
Normal file
36
cidclient/sysTrayMod.bas
Normal file
@ -0,0 +1,36 @@
|
|||||||
|
Attribute VB_Name = "sysTrayMod"
|
||||||
|
'EVERY THING IN THIS MODULE MAKES THE SYSTRAY ICON PROGRAMME WORK'
|
||||||
|
'SO YOU WILL NEED IT ALL,YOU MIGHT NOT USE IT ALL BUT JUST LEAVE IT IN'
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
|
||||||
|
|
||||||
|
Public Const NIM_ADD = &H0
|
||||||
|
Public Const NIM_MODIFY = &H1
|
||||||
|
Public Const NIM_DELETE = &H2
|
||||||
|
Public Const NIF_MESSAGE = &H1
|
||||||
|
Public Const NIF_ICON = &H2
|
||||||
|
Public Const NIF_TIP = &H4
|
||||||
|
Public Const WM_MOUSEMOVE = &H200
|
||||||
|
Public Const WM_LBUTTONDOWN = &H201
|
||||||
|
Public Const WM_LBUTTONUP = &H202
|
||||||
|
Public Const WM_LBUTTONDBLCLK = &H203
|
||||||
|
Public Const WM_RBUTTONDOWN = &H204
|
||||||
|
Public Const WM_RBUTTONUP = &H205
|
||||||
|
Public Const WM_RBUTTONDBLCLK = &H206
|
||||||
|
Public Const HWND_TOPMOST = -1
|
||||||
|
|
||||||
|
Public nid As NOTIFYICONDATA
|
||||||
|
|
||||||
|
Public Type NOTIFYICONDATA
|
||||||
|
cbSize As Long
|
||||||
|
hwnd As Long
|
||||||
|
uId As Long
|
||||||
|
uFlags As Long
|
||||||
|
uCallBackMessage As Long
|
||||||
|
hIcon As Long
|
||||||
|
szTip As String * 64
|
||||||
|
End Type
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user