engalar

Public Sub cc()'''wshom.ocx 
Dim WshShell As WshShell, bKey
Set WshShell = CreateObject("WScript.Shell")

'WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
'WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"

Debug.Print WshShell.RegRead("HKCU\Software\FinePrint Software\pdfFactory4\FinePrinters\pdfFactory Pro\PrinterDriverData\ShowDlg")
Debug.Print WshShell.RegRead("HKCU\Software\FinePrint Software\pdfFactory4\FinePrinters\pdfFactory Pro\PrinterDriverData\PdfAction")
'Debug.Print WshShell.RegRead("HKCU\Software\FinePrint Software\pdfFactory4\OutputFile")

engalar

Public Sub 打印当前()







Dim acadApp As AcadApplication, objDoc As AcadDocument
On Error Resume Next

engalar

@echo off
es.exe %*
python etpclient.py -s 192.168.1.56 -t 210 %*
REM more computers running Everything ETP server ...

engalar

from ftplib import FTP
from optparse import OptionParser
import sys

class ETP(FTP):
    def set_result_type(self, result_type):
        # 0: default
        # 1: ftp link
        # 2: UNC format
        self.result_type = result_type

engalar

Function FileExists(ByVal fname As String) As String
Dim objFSO As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(fname) Then
    FileExists = "1"
Else
    FileExists = "0"
End If