hsiung.博格 ERP軟體

10月 31 週三 201216:59
在呼叫出控制台Item的內容 rundll32.exe

命令行: rundll32.exe shell32.dll,SHExitWindowsEx 1
功能: 關機
命令行: rundll32.exe shell32.dll,SHExitWindowsEx 2
功能: 重新啟動電腦
命令行: rundll32.exe shell32.dll,SHExitWindowsEx 0
功能: 注銷當前使用者
命令行: rundll32.exe shell32.dll,SHExitWindowsEx 4
功能: 強制關機
命令行: rundll32.exe shell32.dll,Control_RunDLL
功能: 顯示控制面板
命令行: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1
功能: 顯示“控制面板－輔助選項－鍵盤”選項視窗
命令行: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2
功能: 顯示“控制面板－輔助選項－聲音”選項視窗
命令行: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3
功能: 顯示“控制面板－輔助選項－顯示”選項視窗
命令行: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4
功能: 顯示“控制面板－輔助選項－滑鼠”選項視窗
命令行: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5
功能: 顯示“控制面板－輔助選項－常規”選項視窗
命令行: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1
功能: 運行“控制面板－添加新硬體”向導
命令行: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter
功能: 運行“控制面板－添加新印表機”向導。
命令行: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1
功能: 顯示 “控制面板－添加/刪除程序－安裝/卸載” 面板。
命令行: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2
功能: 顯示 “控制面板－添加/刪除程序－安裝Windows” 面板。
命令行: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3
功能: 顯示 “控制面板－添加/刪除程序－啟動盤” 面板。
命令行: rundll32.exe syncui.dll,Briefcase_Create
功能: 在桌面上創建一個新的“我的公文包”。
命令行: rundll32.exe diskcopy.dll,DiskCopyRunDll
功能: 顯示復制軟式磁碟機視窗
命令行: rundll32.exe apwiz.cpl,NewLinkHere ％1
功能: 顯示“創建快捷方式”的對話框，所創建的快捷方式的位置由％1參數決定。
命令行: rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0
功能: 顯示“日期與時間”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1
功能: 顯示“時區”選項視窗。
命令行: rundll32.exe rnaui.dll,RnaDial [某個撥號連接的名稱]
功能: 顯示某個撥號連接的撥號視窗。如果已經撥號連接，則顯示當前的連接狀態的視窗。
命令行: rundll32.exe rnaui.dll,RnaWizard
功能: 顯示“新建撥號連接”向導的視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0
功能: 顯示“顯示屬性－背景”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1
功能: 顯示“顯示屬性－屏幕保護”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2
功能: 顯示“顯示屬性－外觀”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3
功能: 顯示顯示“顯示屬性－屬性”選項視窗。
命令行: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder
功能: 顯示Windows的“字體”文件夾。
命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @3
功能: 同樣是顯示Windows的“字體”文件夾。
命令行: rundll32.exe shell32.dll,SHformatDrive
功能: 顯示格式化軟式磁碟機對話框。
命令行: rundll32.exe shell32.dll,Control_RunDLL joy.cpl,,0
功能: 顯示“控制面板－游戲控制器－一般”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL joy.cpl,,1
功能: 顯示“控制面板－游戲控制器－高級”選項視窗。
命令行: rundll32.exe mshtml.dll,PrintHTML (HTML文檔)
功能: 打印HTML文檔。
命令行: rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl
功能: 顯示Microsoft Exchange一般選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @0
功能: 顯示“控制面板－滑鼠” 選項。
命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @1
功能: 顯示 “控制面板－鍵盤屬性－速度”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @1,,1
功能: 顯示 “控制面板－鍵盤屬性－語言”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @2
功能: 顯示Windows“印表機”文件夾。
命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @3
功能: 顯示Windows“字體”文件夾。
命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @4
功能: 顯示“控制面板－輸入法屬性－輸入法”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL modem.cpl,,add
功能: 運行“添加新調制解調器”向導。
命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0
功能: 顯示“控制面板－多媒體屬性－音頻”屬性頁。
命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1
功能: 顯示“控制面板－多媒體屬性－視訊”屬性頁。
命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2
功能: 顯示“控制面板－多媒體屬性－MIDI”屬性頁。
命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3
功能: 顯示“控制面板－多媒體屬性－CD音樂”屬性頁。
命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4
功能: 顯示“控制面板－多媒體屬性－設備”屬性頁。
命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1
功能: 顯示“控制面板－聲音”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl
功能: 顯示“控制面板－網絡”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl
功能: 顯示ODBC32資料管理選項視窗。
命令行: rundll32.exe shell32.dll,OpenAs_RunDLL {drive:\path\filename}
功能: 顯示指定文件(drive:\path\filename)的“打開方式”對話框。
命令行: rundll32.exe shell32.dll,Control_RunDLL password.cpl
功能: 顯示“控制面板－密碼”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl
功能: 顯示“控制面板－電源管理屬性”選項視窗。
命令行: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder
功能: 顯示Windows“印表機”文件夾。(同rundll32.exe shell32.dll,Control_RunDLL main.cpl @2)
命令行: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0
功能: 顯示“控制面板－區域設置屬性－區域設置”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1
功能: 顯示“控制面板－區域設置屬性－數字”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2
功能: 顯示“控制面板－區域設置屬性－貨幣”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3
功能: 顯示“控制面板－區域設置屬性－時間”選項視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4
功能: 顯示“控制面板－區域設置屬性－日期”選項視窗。
命令行: rundll32.exe desk.cpl,InstallScreenSaver [屏幕保護文件名]
功能: 將指定的屏幕保護文件設置為Windows的屏保，並顯示屏幕保護屬性視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0
功能: 顯示“控制面板－系統屬性－常規”屬性視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1
功能: 顯示“控制面板－系統屬性－設備管理器”屬性視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2
功能: 顯示“控制面板－系統屬性－硬體配置文件”屬性視窗。
命令行: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3
功能: 顯示“控制面板－系統屬性－性能”屬性視窗。
命令行: rundll32.exe user.exe,restartwindows
功能: 強行關閉所有程序並重啟機器。
命令行: rundll32.exe user.exe,exitwindows
功能: 強行關閉所有程序並關機。
命令行: rundll32.exe shell32.dll,Control_RunDLL telephon.cpl
功能: 顯示“撥號屬性”選項視窗
命令行: rundll32.exe shell32.dll,Control_RunDLL themes.cpl
功能: 顯示“桌面主題”選項面板

(繼續閱讀...)

hsiung03 發表在痞客邦留言(0) 人氣(19)

個人分類：VFP

▲top

10月 31 週三 201216:59
vfp 壓縮和解壓縮 LZW演算法的實現

LZW演算法的實現
2007-11-24 14:56

*******************************************
演算法製作:行者孫(QQ:310727570)
*******************************************
VFP應用程式演算法群:12787940
*******************************************
**----------------------------------------------------------------------------------
**--函數名:ZIPFILE(OLEDFILE,NEWFILE,TYPE)
**--參數:OLEDFILE被處理的文件,NEWFILE處理後的文件,TYPE類型:1為壓縮,2為還原
**--功能:通用檔壓縮
**----------------------------------------------------------------------------------
FUNCTION ZIPFILE(OLDFILE AS STRING,NEWFILE AS STRING,TYPE AS INTEGER)
PRIVATE OLDFILE,NEWFILE,TYPE
IF TYPE=1
IF !FILE(OLDFILE)
MESSAGEBOX('文件不存在！'+CHR(13)+CHR(10)+OLDFILE,48,'資訊提示')
RETURN .F.
ELSE
IF FILE(NEWFILE)
MESS=MESSAGEBOX('該目錄下存在一個同名檔，是否覆蓋？'+CHR(13)+CHR(10)+NEWFILE,33,'資訊提示')
IF MESS=1
DELETE FILE NEWFILE
COMPRESSFILE(OLDFILE,NEWFILE)
ELSE
RETURN .F.
ENDIF
ELSE
COMPRESSFILE(OLDFILE,NEWFILE)
ENDIF
ENDI
ENDIF
IF TYPE=2
IF STRCONV(SUBSTR(FILETOSTR(OLDFILE),1,8),15)=='D0D0D5DFD1B9CBF5'
IF !FILE(OLDFILE)
MESSAGEBOX('文件不存在！'+CHR(13)+CHR(10)+OLDFILE,48,'資訊提示')
RETURN .F.
ELSE
IF FILE(NEWFILE)
MESS=MESSAGEBOX('該目錄下存在一個同名檔，是否覆蓋？'+CHR(13)+CHR(10)+NEWFILE,33,'資訊提示')
IF MESS=1
DELETE FILE NEWFILE
DECOMPRESSFILE(OLDFILE,NEWFILE)
ELSE
RETURN .F.
ENDIF
ELSE
DECOMPRESSFILE(OLDFILE,NEWFILE)
ENDIF
ENDI
ELSE
MESSAGEBOX('不可識別的壓縮備份檔案'+CHR(13)+CHR(10)+OLDFILE,'錯誤資訊')
RETURN .F.
ENDI
ENDI
ENDFUNC
FUNCTION SETVALUE()
PUBLIC POS_TACK
POS_TACK=1
PUBLIC OUT_TACK
OUT_TACK=0
PUBLIC OUT_BUFF
OUT_BUFF=0
PUBLIC INPUT_TACK
INPUT_TACK=0
PUBLIC INPUT_BUFF
INPUT_BUFF=0
PUBLIC BITS
BITS=12
PUBLIC HASHING_SHIFT
HASHING_SHIFT=4
PUBLIC MAX_VALUE
MAX_VALUE=4095&& BITLSHIFT(1,BITS) - 1
PUBLIC MAX_CODE
MAX_CODE=4094&& MAX_VALUE - 1
PUBLIC TABLE_SIZE
TABLE_SIZE=5021
PUBLIC ARRCODEVALUE[TABLE_SIZE]
PUBLIC ARRPREFCODE[TABLE_SIZE]
PUBLIC ARRHASHCODE[TABLE_SIZE]
PUBLIC ARRDECODESTACK[4000]
ENDFUNC
FUNCTION DECOMPRESSFILE(LSFILENAMEORI,LSFILENAMEDES)
LOCAL LHFILEIN
LOCAL LHFILEOUT
LOCAL LNCHARACTER, LSSTRING
LOCAL LNOLDCHAR, LNNEWCHAR
LOCAL LNNEXTCODE
SETVALUE()
LHFILEIN = FOPEN( LSFILENAMEORI )
FSEEK(LHFILEIN,8)&&文件頭
IF( LHFILEIN < 0 )
RETURN .F.
ENDIF
LHFILEOUT = FCREATE( LSFILENAMEDES )
IF( LHFILEOUT < 0 )
FCLOSE( LHFILEIN )
RETURN .F.
ENDIF
LNNEXTCODE = 256
LNNEWCHAR = 0
LNOLDCHAR = READCODE( LHFILEIN )
LNCHARACTER = LNOLDCHAR
FWRITE( LHFILEOUT, SHORT2TOSTRING( LNOLDCHAR ) )
DO WHILE( .T. )
LNNEWCHAR = READCODE( LHFILEIN )
IF( LNNEWCHAR == MAX_VALUE )
EXIT
ENDIF
IF( LNNEWCHAR >= LNNEXTCODE )
ARRDECODESTACK[POS_TACK] = LNCHARACTER
POS_TACK = POS_TACK + 1
LNSTRING = DECODESTRING( LNOLDCHAR )
ELSE
LNSTRING = DECODESTRING( LNNEWCHAR )
ENDIF
LNCHARACTER = LNSTRING
DO WHILE( LNSTRING >= ARRDECODESTACK[ POS_TACK ] )
FWRITE( LHFILEOUT, SHORT2TOSTRING( LNSTRING ) )
POS_TACK = POS_TACK - 1
IF( POS_TACK < 1 )
POS_TACK = 1
EXIT
ELSE
LNSTRING = ARRDECODESTACK[ POS_TACK ]
ENDIF
ENDDO
IF( LNNEXTCODE <= MAX_CODE )
ARRPREFCODE[ LNNEXTCODE + 1 ] = LNOLDCHAR
ARRHASHCODE[ LNNEXTCODE + 1 ] = LNCHARACTER
LNNEXTCODE = LNNEXTCODE + 1
ENDIF
LNOLDCHAR = LNNEWCHAR
ENDDO
FCLOSE( LHFILEIN )
FCLOSE( LHFILEOUT )
ENDFUNC
FUNCTION DECODESTRING( LNINDEX )
LOCAL LNI, BRETURN
LNI = 0
BRETURN = .T.
DO WHILE( LNINDEX > 255 )
ARRDECODESTACK[POS_TACK] = ARRHASHCODE[ LNINDEX + 1 ]
POS_TACK = POS_TACK + 1
LNINDEX =ARRPREFCODE[ LNINDEX + 1 ]
IF( LNI >= 4094 )
BRETURN = .F.
EXIT
ENDIF
LNI = LNI + 1
ENDDO
IF( BRETURN == .F. )
RETURN( "" )
ENDIF
ARRDECODESTACK[ POS_TACK ] = LNINDEX
RETURN( ARRDECODESTACK[POS_TACK ] )
ENDFUNC
FUNCTION READCODE( LHFILEIN )
LOCAL LNRETURN
DO WHILE( INPUT_TACK <= 24 )
INPUT_BUFF=BITOR( INPUT_BUFF, BITLSHIFT( ASC(FREAD( LHFILEIN, 1 )), (24-INPUT_TACK) ) )
INPUT_TACK=INPUT_TACK + 8
ENDDO
LNRETURN=BITRSHIFT( INPUT_BUFF, (32-BITS) )
INPUT_BUFF=BITLSHIFT( INPUT_BUFF,BITS )
INPUT_TACK=INPUT_TACK-BITS
RETURN( LNRETURN )
ENDFUNC
FUNCTION COMPRESSFILE( LSFILENAMEORI, LSFILENAMEDES )
LOCAL LHFILEIN
LOCAL LHFILEOUT
LOCAL LNCHARACTER, LNCHARPREF
LOCAL LNINDEX, LNNEXTCODE
SETVALUE()
LHFILEIN = FOPEN( LSFILENAMEORI )
IF( LHFILEIN < 0 )
RETURN .F.
ENDIF
LHFILEOUT = FCREATE( LSFILENAMEDES )
FWRITE(LHFILEOUT,STRCONV('D0D0D5DFD1B9CBF5',16))&&文件頭
IF( LHFILEOUT < 0 )
FCLOSE( LHFILEIN )
RETURN .F.
ENDIF
LNNEXTCODE = 256
FOR I = 1 TO TABLE_SIZE
ARRCODEVALUE[ I ] = -1
NEXT
LNCHARPREF = ASC( FREAD( LHFILEIN, 1 ) )
DO WHILE( !FEOF( LHFILEIN ) )
LNCHARACTER = ASC( FREAD( LHFILEIN, 1 ) )
LNINDEX = FINDINDEX( LNCHARPREF, LNCHARACTER )
IF ( ARRCODEVALUE[ LNINDEX + 1 ] != -1 )
LNCHARPREF = ARRCODEVALUE[ LNINDEX + 1 ]
ELSE
IF( LNNEXTCODE <= MAX_CODE )
ARRCODEVALUE[ LNINDEX + 1 ] = LNNEXTCODE
LNNEXTCODE = LNNEXTCODE + 1
ARRPREFCODE[ LNINDEX + 1 ] = LNCHARPREF
ARRHASHCODE[ LNINDEX + 1 ] = LNCHARACTER
ENDIF
WRITE( LHFILEOUT, LNCHARPREF )
LNCHARPREF = LNCHARACTER
ENDIF
ENDDO
WRITE( LHFILEOUT, LNCHARPREF )
WRITE( LHFILEOUT, MAX_VALUE )
WRITE( LHFILEOUT, 0 )
FCLOSE( LHFILEIN )
FCLOSE( LHFILEOUT )
ENDFUNC
FUNCTION FINDINDEX( LSPREFCHAR, LSHASHCHAR )
LOCAL LNINDEX
LOCAL LNOFFSET
LNINDEX = BITXOR( BITLSHIFT( LSHASHCHAR, HASHING_SHIFT ), LSPREFCHAR )
LNOFFSET = IIF( LNINDEX != 0, TABLE_SIZE - LNINDEX, 1 )
DO WHILE( .T. )
IF( ARRCODEVALUE[ LNINDEX + 1 ] == -1 )
EXIT
ENDIF
IF ( ARRPREFCODE[ LNINDEX + 1 ] == LSPREFCHAR AND ;
ARRHASHCODE[ LNINDEX + 1 ] == LSHASHCHAR )
EXIT
ENDIF
LNINDEX = LNINDEX - LNOFFSET
IF( LNINDEX < 0 )
LNINDEX = LNINDEX + TABLE_SIZE
ENDIF
ENDDO
RETURN( LNINDEX )
ENDFUNC
FUNCTION WRITE( LHFILEOUT, LSCODE )
OUT_BUFF = BITOR( OUT_BUFF, BITLSHIFT( LSCODE, (32-BITS-OUT_TACK) ) )
OUT_TACK = OUT_TACK + BITS
DO WHILE( OUT_TACK >= 8 )
FWRITE( LHFILEOUT, SHORT2TOSTRING( BITRSHIFT( OUT_BUFF, 24 ) ) )
OUT_BUFF = BITLSHIFT( OUT_BUFF, 8 )
OUT_TACK =OUT_TACK - 8
ENDDO
ENDFUNC
FUNCTION STRINGWRITE( LSCODE )
LOCAL LSRETURN
LSRETURN=""
OUT_BUFF = BITOR( OUT_BUFF, BITLSHIFT( LSCODE, (32-BITS-OUT_TACK) ) )
OUT_TACK = OUT_TACK + BITS
DO WHILE( OUT_TACK >= 8 )
LSRETURN = LSRETURN + SHORT2TOSTRING( BITRSHIFT( OUT_BUFF, 24 ) )
OUT_BUFF = BITLSHIFT( OUT_BUFF, 8 )
OUT_TACK = OUT_TACK - 8
ENDDO
RETURN LSRETURN
ENDFUNC
FUNCTION SHORT2TOSTRING( M.VALOR )
LOCAL LSNEWVAL
LSNEWVAL = CHR( BITAND( M.VALOR, 0XFF ) ) + CHR( BITRSHIFT( M.VALOR, 8 ) )
IF( ASC( SUBSTR( LSNEWVAL, 2, 1 ) ) == 0 )
LSNEWVAL = SUBSTR( LSNEWVAL, 1, 1 )
ENDIF
RETURN LSNEWVAL
ENDFUNC

(繼續閱讀...)

hsiung03 發表在痞客邦留言(0) 人氣(20)

個人分類：VFP

▲top

10月 31 週三 201216:58
VFP的未來!?

VFP的未來!?
http://www.visionpace.com/VMPSite/default.asp
http://www.visualextend.com/visualextend_en/default.htm
以上兩個網址都提供了延伸的方案，供大家一起研究參考之

(繼續閱讀...)

hsiung03 發表在痞客邦留言(0) 人氣(39)

個人分類：VFP

▲top

10月 31 週三 201216:58
windows xp 使用命令新增印表機控制印表機

windows xp 使用命令新增印表機控制印表機
使用方式: rundll32 printui.dll,PrintUIEntry [options] [@commandfile]

(繼續閱讀...)

hsiung03 發表在痞客邦留言(0) 人氣(31)

個人分類：VFP

▲top

10月 31 週三 201216:56
vfp 如何實現Google中譯英？

如何實現Google中譯英？
英譯中關鍵語句為：
STRTRAN(Gethttp('http://translate.google.cn/translate_a/t?client=t&text='+trans_str+'&sl=auto&tl=zh-CN&pc=0'),CHR(0)," ")
按道理中譯英關鍵語句為：
STRTRAN(Gethttp('http://translate.google.cn/translate_a/t?client=t&text='+trans_str+'&sl=zh-CN&tl=en&pc=0'),CHR(0)," ")
中譯英好像有亂碼，可參考下面英文翻譯為中文的代碼：大家討論討論：如何實現Google中譯英？
**第二個參數為1時,英文譯中文,第二個參數為2時,英文譯中文拼音
**張宏2010年3月6日
clear
? transentoch("Can you tell me who are you?",1)
? transentoch("My name is zhanghong.",1)
? transentoch("how old are you?",1)

PROCEDURE transentoch
parameters trans_str,type
IF VARTYPE(trans_str)<>"C"
RETURN ""
ELSE
PRIVATE paratemp
paratemp=CHRTRANC(trans_str,"abcdefghijklmnopqrstuvwxyz"+UPPER("abcdefghijklmnopqrstuvwxyz")+" ,./?<>:;'!@#$%^&*()_-+=|\1234567890"+'"',"")
trans_str=CHRTRANC(trans_str,paratemp,"")
trans_str=ALLTRIM(trans_str)
IF EMPTY(trans_str)
RETURN ""
ENDIF
ENDIF
private lcgettempstr
lcgettempstr = STRTRAN(Gethttp('http://translate.google.cn/translate_a/t?client=t&text='+trans_str+'&sl=auto&tl=zh-CN&pc=0'),CHR(0)," ")
IF VARTYPE(type)<>"N"
type=1
ELSE
IF !INLIST(type,1,2)
type=1
endif
ENDIF
PRIVATE temp_ret_str
IF type=1
temp_ret_str=SUBSTR(lcgettempstr,AT('“”',lcgettempstr,1)+4, AT('“”',lcgettempstr,2) -AT('“”',lcgettempstr,1)-4)
IF EMPTY(temp_ret_str)
temp_ret_str=SUBSTR(lcgettempstr,AT('"trans":"',lcgettempstr,1)+9, AT('","orig"',lcgettempstr,1) -AT('"trans":"',lcgettempstr,1)-9)
endif
ELSE
temp_ret_str=SUBSTR(lcgettempstr,AT('“”',lcgettempstr,3)+4, AT('“”',lcgettempstr,4) -AT('“”',lcgettempstr,3)-4)
IF EMPTY(temp_ret_str)
temp_ret_str=SUBSTR(lcgettempstr,AT('"translit":"',lcgettempstr,1)+12, AT('"}]',lcgettempstr,1) -AT('"translit":"',lcgettempstr,1)-12)
endif
ENDIF
RETURN temp_ret_str
endproc
procedure Gethttp
parameters lcurl
declare integer InternetOpen in wininet string, integer, string, string, string
declare integer InternetCloseHandle in wininet integer
declare integer InternetOpenUrl in wininet integer, string, string, integer, integer, integer
declare integer InternetReadFile in wininet integer, string @, integer, integer @
private hopen,lcgestr
lcgestr = ""
hopen = internetopen("vfp 6.0",1,0,0,0)
if hopen = 0
messagebox("本機 Dll 函數庫無效！",16,"資訊提示")
else
private hfile
hfile = InternetOpenUrl(hopen,lcurl,"",0,16,0)
if hfile <> 0
private lntotalbytesread,lnbytesread,lcbuffer
lntotalbytesread = 0
do while .t.
lcbuffer = replicate(CHR(0),4096)
lnbytesread = 0
if InternetReadFile(hfile,@lcbuffer,4096,@lnbytesread) = 1
lcgestr = lcgestr+lcbuffer
if lnbytesread = 0
exit
endif
lntotalbytesread = lntotalbytesread+lnbytesread
else
exit
endif
enddo
= InternetCloseHandle(hfile)
else
messagebox("獲取網路資訊失敗！",48,"資訊提示")
endif
= InternetCloseHandle(hopen)
endif
clear dlls
return lcgestr

(繼續閱讀...)

hsiung03 發表在痞客邦留言(0) 人氣(34)

個人分類：VFP

▲top

10月 31 週三 201216:56
刪除服務及建立使用者自訂服務

刪除服務及建立使用者自訂服務

刪除服務及建立使用者自訂服務

轉載自 http://phorum.study-area.org/viewtopic.php?t=35257
刪除服務:
執行cmd進入命令提示字元
鍵入 sc delete
為欲刪除的服務名稱
或
執行regedit開啟登錄編輯器
找到 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\
將欲刪除的服務機碼刪除
建立使用者自訂服務:
首先必須要有兩個檔案,Instsrv.exe和Srvany.exe
Instsrv.exe可以安裝和刪除服務
Srvany.exe可以讓程式以系統服務方式運行
這兩個檔案在Windows 2000/2003 Resource Kit之中
需注意,2003 Resource Kit Tools只能在Windows Server 2003或Windows XP之下使用
Windows 2000需使用Windows 2000 Resource Kit Tools
以Windows Server 2003為例:
第一步
先下載Server 2003 Resource Kit Tools
http://www.microsoft.com/downloads/details.aspx?familyid=9d467a69-57ff-4ae7-96ee-b18c4790cffd&displaylang=en
第二步
執行安裝2003 Resource Kit Tools
預設會安裝至C:\Program Files\Windows Resource Kits\Tools
將Instsrv.exe和Srvany.exe複製到C:\
第三步
執行cmd進入命令提示字元
鍵入 C:\instsrv.exe C:\srvany.exe
為要建立的服務之名稱
第四步
執行regedit開啟登錄編輯器
找到 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\
選取機碼,按右鍵[新增]-[機碼],命名機碼名稱為Parameters
選取剛才新增的Parameters機碼,按右鍵[新增]-[字串值]
命名字串值名稱為Application,數值資料為 \
\ 是指應用程式可執行檔的完整路徑,含副檔名
例如 C:\WinNT\Notepad.exe
關閉登錄編輯器,自訂服務完成!
新建的服務會被設定成於系統啟動時[自動]執行
以後當你想移除之前所建立的使用者自訂服務時
執行cmd進入命令提示字元
鍵入 C:\instsrv.exe remove
Windows 2003 Command-line reference
http://www.microsoft.com/technet/prodtechnol/windowsserver2003/library/ServerHelp/fdc12a63-df4e-49e7-94d6-177536b18eb6.mspx

(繼續閱讀...)

hsiung03 發表在痞客邦留言(0) 人氣(56)

個人分類：VFP

▲top

10月 31 週三 201216:55
windows 虛擬磁碟 ramdisk

找到一點資料：
從微軟站點http://support.microsoft.com/kb/257405/zh-cn上下載ramdisk的驅動和源碼

(繼續閱讀...)

hsiung03 發表在痞客邦留言(0) 人氣(17)

個人分類：VFP

▲top

10月 31 週三 201216:54
VFP 9.0報表（FRX）的表結構

Visual FoxPro 9.0 報告編寫器的新增功能

VFP 9.0報表（FRX）的表結構

(繼續閱讀...)

hsiung03 發表在痞客邦留言(0) 人氣(220)

個人分類：VFP

▲top

10月 31 週三 201216:53
vfp dbf 檔案結構

修復損壞的 DBF 與 FPT 檔之報告書
1.dbf 檔案結構
*dbf 資料表格檔頭記錄的結構
*位元組偏移說明
*0 檔案類型
*0x02FoxBASE
*0x03FoxBASE+/dBASE III PLUS，無說明
*0x30Visual FoxPro
*0x43dBASE IV SQL 資料表格檔，無說明
*0x63dBASE IV SQL 系統檔案，無說明
*0x83FoxBASE+/dBASE III PLUS，有說明
*0x8BdBASE IV 有說明
*0xCBdBASE IV SQL 資料表格檔，有說明
*0xF5FoxPro 2.x（或更早版本）有說明
*0xFBFoxBASE
*1 !D 3 最近一次更新的時間（YYMMDD）
*4 － 7 檔案中的資料記錄數目
*8 － 9 第一筆資料記錄的位置
*10 － 11 每筆資料記錄的長度（包括刪除記號）
*12 － 27 保留
*28 資料表格的記號
*0x01具有 .cdx 結構的檔案
*0x02檔案包含說明。
*0x04檔案是資料庫（.dbc）
*請注意，這個位元組可以包含任何上面值的和。例如，0x03 表示資料表格具有結構化 .cdx 和一個附註欄位。
*29 字碼頁記號
*30 － 31 保留，包含 0x00
*32 － n 欄位子資料記錄
*欄位的數目決定了欄位子資料記錄的數目。資料表格中每個欄位都對應一個欄位子資料記錄。
*n+1 檔頭記錄終止符（0x0D）
*n+2 到 n+264 此範圍內的 263 個位元組包含歸屬連結資訊（相關資料庫 (.dbc) 的相對路徑）。如果第一個位元組為 0x00，則該檔案不與資料庫關連。因此資料庫檔案本身總是包含 0x00。
*1. 檔頭記錄中的第 8 到第 9 個位元組指示資料檔案中資料的初始位置。資料記錄從刪除記號位元組開始。如果此位元組為 ASCII 空白 (0x20)，該資料記錄沒有刪除記號，如果第一位元組為星號 (0x2A),該資料記錄有刪除記號。在記號之後是欄位資料記錄中所命名各欄位中的資料。
*欄位子資料記錄結構
*位元組偏移說明
*0 - 10 欄位名稱（最多 10 個字元－若少於 10 則用空字元 (0x00) 填滿）
*11 欄位型態
*C－字元型態
*Y－貨幣型
*N－數值型態
*F－浮點數型態
*D－日期型態
*T－日期時間型態
*B－倍精準數
*I－整數
*L－邏輯型態
*M－附註
*G－通用型態
*C－字元型態（二進位）
*M－附註欄位型態（二進位）
*P－圖片型
*12 - 15 資料記錄中該欄位的位移
*16 欄位長度（以位元組為單位）
*17 小數位數
*18 欄位記號
*0x01系統欄位（對使用者是非可視的）
*0x02可儲存 null 值的欄位
*0x04二進位欄位（只適於字元型態和附註欄位型態）
*19 － 32 保留
*有關對每筆資料記錄中字元的限制以及欄位數目的最大值等詳細內容，請參閱[Visual FoxPro 系統功能]。
*說明
*除非在檔案中加入下列功能，否則 Visual FoxPro 將不修改按 FoxPro 2.X 檔格式儲存的檔案標題：
*支援 null 值
*日期時間型態、貨幣型態及倍精準數資料
*字元欄位和附註欄位記號為二進位
*在資料庫 (.dbc) 檔案中加入資料表格
*秘訣可以使用下面的公式求出資料表格檔中欄位的數目：(x － 296/32) 公式中，x 表示第一筆資料記錄的位置（資料表格檔頭記錄的第 8 到第 9 個位元組），296 表示 263（歸屬連結資訊）+ 1（檔頭記錄終止符號）+ 32（第一個欄位子資料記錄），32 是欄位子資料記錄的長度
2.找到像以前的dos時代的pctools,一段的一段的觀察,或許你就知道資料如何修復,或者放棄

(繼續閱讀...)

hsiung03 發表在痞客邦留言(0) 人氣(169)

個人分類：VFP

▲top

10月 31 週三 201216:52
桌面路徑：GETENV("USERPROFILE") + "\桌面"

mPATH=GETENV("USERPROFILE") + "\桌面\"
MESSAGEBOX(mPATH)

(繼續閱讀...)

hsiung03 發表在痞客邦留言(0) 人氣(7)

個人分類：VFP

▲top

12 ...4 »

hsiung.博格 ERP軟體

純正的 SOA BPM 架構 F/S,C/S,B/S完全一體成型擁有博格的這套ERP可開發軟體中小企業自製客製化ERP已不是夢想博格資訊 (04)7121509 　 0912-315432 蔡定洋

在呼叫出控制台Item的內容 rundll32.exe

vfp 壓縮和解壓縮 LZW演算法的實現

VFP的未來!?

windows xp 使用命令新增印表機控制印表機

vfp 如何實現Google中譯英？

刪除服務及建立使用者自訂服務

windows 虛擬磁碟 ramdisk

VFP 9.0報表（FRX）的表結構

vfp dbf 檔案結構

桌面路徑：GETENV("USERPROFILE") + "\桌面"

個人資訊

熱門文章

文章分類

最新文章

最新留言

動態訂閱

文章精選

文章搜尋

參觀人氣

誰來我家

純正的 SOA BPM 架構 F/S,C/S,B/S完全一體成型 擁有博格的這套ERP可開發軟體 中小企業自製客製化ERP已不是夢想 博格資訊 (04)7121509 0912-315432 蔡定洋

個人資訊

熱門文章

文章分類

最新文章

最新留言

動態訂閱

文章精選

文章搜尋

參觀人氣

誰來我家

純正的 SOA BPM 架構 F/S,C/S,B/S完全一體成型擁有博格的這套ERP可開發軟體中小企業自製客製化ERP已不是夢想博格資訊 (04)7121509 　 0912-315432 蔡定洋