千's notes

vmware tools 安裝(升級)注意事項

2011-11-29T14:16:00.002+09:00

安裝(升級) vmware tools 時
如果 kernel 有更新
編譯時會找不到對應的 header 路徑
造成無法編譯成功
這時要記得安裝對應的 header 即可

apt-get install linux-headers-`uname -r`

另外在虛擬機器安裝 vmware workstation 後
遇到執行後沒反應的情形
執行下列指令後即可

/usr/bin/vmware-config-tools.pl -m

Debian 編譯套件整理

2011-10-12T15:54:00.000+09:00

使用 Debian Testing (Stable 有些新套件不支援)

bsnes:
apt-get install build-essential gcc-4.5 g++-4.5 libgtk2.0-dev libqt4-dev libsdl1.2-dev libpulse-dev libopenal-dev libao-dev libxv-dev

desmume:
apt-get install intltool libglade2-dev

wine:
apt-get install flex bison
apt-get install ia32-libs-dev libc6-dev-i386 lib32z1-dev //64bit Only

filezilla:
apt-get install libwxgtk2.8-dev libidn11-dev libgnutls-dev libtinyxml-dev libsqlite3-dev wx-common

truecrypt:
apt-get install nasm libfuse-dev

gimp:
apt-get install libbabl-0.0-0-dev libgegl-0.0-dev libtiff4-dev python2.6-dev python-gtk2-dev

vlc:
apt-get install liblua5.1-0-dev lua5.1 libmad0-dev libavcodec-dev libavformat-dev libswscale-dev libpostproc-dev liba52-0.7.4-dev libxcb-shm0-dev libxcb-xv0-dev libxcb-keysyms1-dev libxcb-randr0-dev libx11-xcb-dev libfribidi-dev libxpm-dev

firestarter:
apt-get install libgnome2-dev libgnomeui-dev

virtualbox:
apt-get install bin86 bcc iasl libxslt1-dev libcurl4-openssl-dev libxmu-dev
apt-get install linux-headers- //uname -r
apt-get install libcap-dev makeself
apt-get install libpam0g-dev g++-multilib texlive-latex-base texlive-latex-recommended texlive-latex-extra texlive-fonts-extra

RagAddress.ini 搜尋更新(2011-08-23aRagexe)

2011-09-08T15:32:00.002+09:00

//2011-08-23aRagexe
//CharName=
//Search:esi, [ecx+12E8h]

sub_703680 proc near
push esi
lea esi, [ecx+12E8h]
push edi
mov ecx, 10h
mov edi, offset byte_87BEE0 //CharName=
rep movsd
mov ecx, off_7D64DC
mov esi, ecx
xor eax, eax
sub esi, offset byte_87BEE0 //CharName=
jmp short loc_7036B0
align 10h

loc_7036B0:
movzx edx, byte_87BEE0[esi+eax] //CharName=
xor byte_87BEE0[eax], dl
movzx edx, byte ptr [ecx+eax+1]
xor byte_87BEE1[eax], dl
movzx edx, byte ptr [ecx+eax+2]
xor byte_87BEE2[eax], dl
movzx edx, byte ptr [ecx+eax+3]
xor byte_87BEE3[eax], dl
add eax, 4
cmp eax, 40h
jb short loc_7036B0
pop edi
mov eax, offset byte_87BEE0
pop esi
retn
sub_703680 endp

align 10h

//Zeny=
//BaseExp=
//BaseExpNext=
//JobExp=
//JobExpNext=
//Search:mov ecx, [esp+58h+var_10]

loc_689B95:
mov [esp+6Ch+var_4], 0FFFFFFFFh
lea ecx, [esp+6Ch+var_2C]
call //此行有點問題 貼不上來
mov ecx, [esp+6Ch+var_C]
mov large fs:0, ecx
pop ecx
pop edi
pop esi
pop ebp
pop ebx
mov ecx, [esp+58h+var_10]
xor ecx, esp
call sub_722AB8
add esp, 58h
retn 4
sub_6891C0 endp

off_689BC8 dd offset loc_68922F
dd offset loc_689253
dd offset loc_68926B
dd offset loc_689344
dd offset loc_68941D
dd offset loc_689459
dd offset loc_68946C
dd offset loc_68947F
dd offset loc_6894BA
dd offset loc_6896A2
dd offset loc_6896C3
dd offset loc_6896DB
dd offset loc_6896F3
dd offset loc_68970A
dd offset loc_689722
dd offset loc_68973A
dd offset loc_689751
dd offset loc_6898CE
dd offset loc_6899D0
dd offset loc_6899E8
dd offset loc_689A00
dd offset loc_689A17
dd offset loc_689A2F
dd offset loc_689A47
dd offset loc_689A5E
dd offset loc_689A76
dd offset loc_689A8E
dd offset loc_689AA5
dd offset loc_689ABD
dd offset loc_689AD5
dd offset loc_689AEC
dd offset loc_689B04
dd offset loc_689B19
dd offset loc_689327
dd offset loc_689B95
byte_689C54 db 0
db 2 dup(22h), 1
dd 5040302h, 8220706h, 0C0B0A09h, 220F0E0Dh
dd 22222222h, 22221110h, 3 dup(22222222h)
dd 14131222h, 18171615h, 1C1B1A19h, 201F1E1Dh
dd 22222222h, 498D21h
off_689C94 dd offset loc_689570
dd offset loc_6895AB
byte_689C9C db 0
align 10h
dword_689CA0 dd 0CC010101h, 3 dup(0CCCCCCCCh), 104EC81h
dd 0C0A10000h, 33007DCCh, 248489C4h, 100h
dd 24BC8B57h, 10Ch, 247B70Fh, 16F88348h
dd 0D5870Fh, 0B60F0000h, 689DE080h, 8524FF00h
dd 689DC8h, 18B9026Ah, 0E80087DDh, 55FFCh
dd 5D74C085h, 5304478Bh, 0FCAC1D8Bh, 8B560087h
dd 85F32BF0h, 854874C0h, 554474F6h, 0FCB82D8Bh
dd 0C88B0087h, 0C32BC58Bh, 50FEF799h, 0CB2B5155h
dd 244C8D51h, 6C886820h, 0FF510078h, 75637815h
dd 18C48300h, 6A006Ah, 0F51EF568h, 24548D00h
dd 16A521Ch, 819078B9h, 5EDEE800h, 5E5DFFE9h
dd 4478B5Bh, 87FCACA3h, 8B46EB00h, 0D89044Fh //BaseExp=87F***
dd 87FD68h, 0B9833BEBh, 11Ch, 0C7147400h //JobExp=87F***
dd 11C81h, 0
add byte ptr dword_87DD18[ecx], bh
call sub_6F1A70
mov edx, [edi+4]
mov dword_87FD54, edx //Zeny=
jmp short loc_689DA5

loc_689D92:
mov eax, [edi+4]
mov dword_87FCB8, eax //BaseExpNext=
jmp short loc_689DA5

loc_689D9C:
mov ecx, [edi+4]
mov dword_87FD64, ecx //JobExpNext=


//Weight=
//WeightMax=
//Search:; "Weight : %3d / %3d"

loc_494BB4:  ; "Weight : %3d / %3d"
push offset aWeight3d3d

loc_494BB9:  ; char *
push edx
call ebx ; sprintf
mov eax, dword_8797C0 //WeightMax=
add esp, 10h
xor edi, edi
cmp eax, 1
mov ecx, eax
jg short loc_494BD2
mov ecx, 1

loc_494BD2:
mov eax, dword_8797CC //Weight=
imul eax, 64h
cdq
idiv ecx
cmp eax, 32h
jl short loc_494BE7
mov edi, 0FFh

//BaseLv=
//JobLv=
//Search:; "Base Lv. %d"
//Search:; "Job Lv. %d"

loc_494A8B:
mov eax, dword_879710 //BaseLv=
push eax
push offset aBaseLv_D ; "Base Lv. %d"
lea ecx, [esp+2Ch]
push ecx  ; char *

loc_494ADB:
mov eax, dword_87971C //JobLv=
push eax
push offset aJobLv_D ; "Job Lv. %d"
lea ecx, [esp+2Ch]
push ecx  ; char *

//HPIndex=
//MaxHPTable=
//Search:

HPIndex & MaxHPTable 似乎是無解
使用 WinHex 和之前版本比較似乎整個被拿掉了
不過這 2 個並不影響 Exp 效率的計算
只是不能自動喝水了

RagAddress.ini 位址相關說明

2011-08-31T13:39:00.002+09:00

http://ragnarok.reharmonize.net/ragnarok/RoAddr/#n09

Java 安裝

2011-08-31T13:33:00.001+09:00

http://www.oracle.com/technetwork/java/javase/manual-plugin-install-linux-136395.html
http://download.oracle.com/javase/7/docs/webnotes/install/linux/linux-plugin-install.html

Comodo Internet Security 防火牆設定

2011-07-29T19:17:00.003+09:00

Xmanager:
http://www.netsarang.com/faq/xmanager/3160/title
根據這個 FAQ 必需開啟以下 PORT
TCP(IN) : 6000~6010 16001(GNOME)
UDP(OUT) : 177

首先把 Xmanager 的主程式加入信任程式
開啟 CIS 後選 Firewall 的部份
按 Define a New Trusted Application 把主程式加入(Select -> Browse...)
然後在 Network Security Policy 裡找到 Xmanager
按右鍵選擇 Edit
這時 Network Access Rules 應該是 Use a Custom Policy
規則裡會有一個 Allow All Requests
按左下角的 Add... 來加入我們需要的規則
UDP(OUT) :
Action: -> Allow
Protocol: -> UDP
Direction: -> Out
Destination Port -> Type: -> A Single Port
Port: -> 177
TCP(IN) :
這邊因為要開啟的 PORT 比較多
所以先到 Network Security Policy 裡的 Port Sets
按 ADD... -> A New Port Set... 名字我輸入 XDMCP
然後 XDMCP 按右鍵選 Add...
A Single Port -> 16001
A port range -> 6000 - 6010
完成這些後
按照 UDP(OUT) 的方法加入規則
Action: -> Allow
Protocol: -> TCP
Direction: -> In
Source Port -> Type: -> A Set of Ports
Ports: -> XDMCP
這樣就設定完成

開啟 PORT 113 (巴哈姆特):
Network Security Policy 裡按 Add...(記得先取消選擇程式不然只是在那個程式內加規則)
Application Path: Select -> Running Processes
選擇 Windows Operating System
然後加入兩個規則
Action: -> Allow
Protocol: -> TCP
Direction: -> Out
Destination Address -> Type: -> IPv4 Single Address
IP: -> 60.199.217.88
Source Port -> Type: -> A Single Port
Port: -> 113

Action: -> Allow
Protocol: -> TCP
Direction: -> In
Source Address -> Type: -> IPv4 Single Address
IP: -> 60.199.217.88
Destination Port -> Type: -> A Single Port
Port: -> 113
這樣子就設定完成

附註: 60.199.217.88 這個是巴哈姆特的 IP 如果將來有更改的話也要隨之變更
參考資料: http://webbbs.gamer.com.tw/readPost.php?brd=protect_PC&p=1579&x=A15V6QCM

Debian 開機問題

2011-06-16T04:10:00.003+09:00

版本 : debian-6.0.1a-i386-DVD-1.iso
安裝完後更新成 testing
開機時有時會出現這問題重開機就會正常(次數不定)

RO 配點整理(官服調整版)

2011-06-08T10:14:00.025+09:00

[2012/01/11 Update]
Arc Bishop
STR 1 ; AGI 82 ; VIT 95 ; INT 82 ; DEX 84 ; LUK 100
(JOB50加成值：STR+5、AGI+4、VIT+5、INT+8、DEX+6、LUK+0)
http://uniuni.dfz.jp/skill4/acb.html?20gXdNsXdAhFbqroqnqEHnjScAkBabkbdsrChScHcY
http://uniuni.dfz.jp/skill4/acb.html?20gXdNsXdAhEbdlbqnkeHnjN1kBabkbdsrChScHcY (Baby)

Sorcerer
STR 1 ; AGI 84 ; VIT 95 ; INT 120 ; DEX 83 ; LUK 1
(JOB50加成值：STR+3、AGI+3、VIT+5、INT+10、DEX+7、LUK+3)
http://uniuni.dfz.jp/skill4/soe.html?10qoAnfkeKcokBaFrEkEhNrAdAabdnafrArFhSaCaAdn1cHcY
http://uniuni.dfz.jp/skill4/soe.html?10qoAnfkeKcokBaFrEkEhNrAdAabdnafrAbslfhqaAdn1cHcY (ストライキングなし)

Warlock
STR 1 ; AGI 82 ; VIT 96 ; INT 120 ; DEX 84 ; LUK 1
(JOB50加成值：STR+1、AGI+5、VIT+4、INT+11、DEX+6、LUK+1)
http://uniuni.dfz.jp/skill4/wlk.html?10qneAoXfkdDcBHneKgKcAapdAeAbsbsaOebqopHcY

Wanderer
STR 1 ; AGI 82 ; VIT 95 ; INT 82 ; DEX 84 ; LUK 100
(JOB50加成值：STR+2、AGI+8、VIT+5、INT+8、DEX+6、LUK+0)
http://uniuni.dfz.jp/skill4/wan.html?10FXJkrAJkGO2b2nbxrA2orA6kwY

Soul Linker
STR 90 ; AGI 83 ; VIT 44 ; INT 1 ; DEX 38 ; LUK 1
(JOB50加成值：STR+0、AGI+0、VIT+6、INT+12、DEX+12、LUK+0)
http://uniuni.dfz.jp/skill4/slk.html?10GA3fhyhqndndnasdA1bQ4k

Genetic
STR 99 ; AGI 1 ; VIT 1 ; INT 99 ; DEX 1 ; LUK 1
(JOB50加成值：STR+1、AGI+5、VIT+4、INT+11、DEX+6、LUK+1)
http://uniuni.dfz.jp/skill4/gnt.html?10JbGKAfuSrArFqBdsGA91In

Glt. Cross
STR 110 ; AGI 110 ; VIT 95 ; INT 1 ; DEX 73 ; LUK 1
(JOB50加成值：STR+6、AGI+7、VIT+5、INT+4、DEX+7、LUK+0)
http://uniuni.dfz.jp/skill4/glx.html?10GXjkIbHNsNboGS1cBqA2fakwY

AHK(RO 自動 Encore & Frost Misty & Jack Frost ; 可背景執行目前只適合單視窗)

2011-05-17T19:25:00.009+09:00

[2011/05/18 Update]
Encore:

Pause //暫停
IfWinExist,Ragnarok //檢查 RO 視窗是否存在
{
Loop //迴圈
{
 Loop,4 //迴圈 4 次
 {
 IfWinActive,Ragnarok //如果選擇的視窗是 RO
 {
  Send {F4} //送出按鍵(可以變更)
 }
 IfWinNotActive,Ragnarok //如果選擇的視窗不是 RO(背景執行用)
 {
  ControlSend,,{F4},Ragnarok //背景送出按鍵給 RO(可以變更)
 }
 Sleep, 250 //停止 0.25 秒
 }
 Sleep, 180000 //停止 180 秒
 Sleep, 5000 //停止 5秒
}
}
^Home::Pause //設定 Ctrl+Home 暫停 or 關閉暫停
^End::Reload //設定 Ctrl+End 重置(重置後 預設是暫停 要按 Ctrl+Home 開始)
             //使用暫停並不會使 Sleep 的計時重置 故加入此鍵
             //沒有先使用詩舞技能就使用 Encore 的話 會沒反應 此時也必需重置

Frost Misty & Jack Frost:

Pause
IfWinExist,Ragnarok
{
Loop
{
 Loop,2 //送 2 次是怕 LAG(約 1~3 次 JF 會 1次 FM)
 {
 IfWinActive,Ragnarok
 {
  Send {F7} //Frost Misty
 }
 IfWinNotActive,Ragnarok
 {
  ControlSend,,{F7},Ragnarok //建議使用 F1~F9(背景執行時 比較不會有問題)
 }
 Sleep, 250
 }
 Loop,2 //送 2 次是怕 LAG(約 1~3 次 JF 會 1次 FM)
 {
 IfWinActive,Ragnarok
 {
  Send {F9} //Jack Frost
 }
 IfWinNotActive,Ragnarok
 {
  ControlSend,,{F9},Ragnarok //建議使用 F1~F9(背景執行時 比較不會有問題)
 }
 Sleep, 250
 }
}
}
^Home::Pause
^End::Reload

官網:http://www.autohotkey.com/
複制上面的程式碼
然後用 AutoHotKey 編譯即可使用

Flash Player 10.3 (Debian)

2011-05-14T04:12:00.003+09:00

10.3 版似乎沒有提供 deb 安裝檔
下載 (.tar.gz) 版本
解壓縮後把 libflashplayer.so 複制到 /usr/lib/mozilla/plugins 即可(使用 Firefox 4)

裡面有附設定程式安裝測試後
個人覺得似乎不需要安裝(需要的話可以參考內附的說明檔安裝)

要注意的是有安裝其它版的話
在 Firefox 的設定裡要將它關閉
不然似乎會使用舊版的播放

Debian 圖形遠端連線

2011-05-10T15:45:00.002+09:00

vim /etc/gdm3/daemon.conf // 在 xdmcp 下加入 Enable=true 即可
/*
[xdmcp]
Enable=true
*/

目前是使用這套 XWinLogon Windows X Server (Windows)
官網 : http://www.calcmaster.net/visual-c++/xwinlogon/
不過畫面上的效能還不是很理想
做一些簡單的設定是沒問題
所以還是使用 ssh 比較多

IDA Pro 簡易教學

2011-05-09T02:36:00.006+09:00

使用軟體 : IDA Pro 5.0 Freeware Version
官網 : http://www.hex-rays.com/

主程式

開啟檔案(選 Portable 其它使用預設值就好)

載入程式中需要其它的 DLL(可以略過按 Cancel)

這邊按 Yes(這邊我不知道怎麼解釋比較好照預設選 Yes 就好)

等待分析完成後
File -> Product file -> Create ASM File... ALT+F10

這個是分析還沒完成就選輸出的情形請按 No 等待分析完成
(這邊要等約 10~15 分)

分析完成

正在輸出

使用這個軟體
所得到的 ASM 檔
能用來搜尋 RagAddress.ini 所需要的位址

RagAddress.ini 教學(使用 IDA PRO)

2011-05-07T01:54:00.004+09:00

[2011/10/30 Update]

//2011-10-19aRagexe
//CharName=
//Search:esi, [ecx+12E8h]

sub_703680 proc near
push esi
lea esi, [ecx+12E8h]
push edi
mov ecx, 10h
mov edi, offset byte_87BEE0 //CharName=
rep movsd
mov ecx, off_7D64DC
mov esi, ecx
xor eax, eax
sub esi, offset byte_87BEE0 //CharName=
jmp short loc_7036B0
align 10h

loc_7036B0:
movzx edx, byte_87BEE0[esi+eax] //CharName=
xor byte_87BEE0[eax], dl
movzx edx, byte ptr [ecx+eax+1]
xor byte_87BEE1[eax], dl
movzx edx, byte ptr [ecx+eax+2]
xor byte_87BEE2[eax], dl
movzx edx, byte ptr [ecx+eax+3]
xor byte_87BEE3[eax], dl
add eax, 4
cmp eax, 40h
jb short loc_7036B0
pop edi
mov eax, offset byte_87BEE0
pop esi
retn
sub_703680 endp

align 10h

//Zeny=
//BaseExp=
//BaseExpNext=
//JobExp=
//JobExpNext=
//Search:mov ecx, [esp+58h+var_10]

loc_691EB9:
mov [esp+6Ch+var_4], 0FFFFFFFFh
lea ecx, [esp+6Ch+var_2C]
call ds: //此行過長省略
mov ecx, [esp+6Ch+var_C]
mov large fs:0, ecx
pop ecx
pop edi
pop esi
pop ebp
pop ebx
mov ecx, [esp+58h+var_10]
xor ecx, esp
call sub_72D078
add esp, 58h
retn 4
sub_6914E0 endp

off_691EEC dd offset loc_69154F
dd offset loc_691573
dd offset loc_69158B
dd offset loc_691668
dd offset loc_691741
dd offset loc_69177D
dd offset loc_691790
dd offset loc_6917A3
dd offset loc_6917DE
dd offset loc_6919C6
dd offset loc_6919E7
dd offset loc_6919FF
dd offset loc_691A17
dd offset loc_691A2E
dd offset loc_691A46
dd offset loc_691A5E
dd offset loc_691A75
dd offset loc_691BF2
dd offset loc_691CF4
dd offset loc_691D0C
dd offset loc_691D24
dd offset loc_691D3B
dd offset loc_691D53
dd offset loc_691D6B
dd offset loc_691D82
dd offset loc_691D9A
dd offset loc_691DB2
dd offset loc_691DC9
dd offset loc_691DE1
dd offset loc_691DF9
dd offset loc_691E10
dd offset loc_691E28
dd offset loc_691E3D
dd offset loc_69164B
dd offset loc_691EB9
byte_691F78 db 0
db 2 dup(22h), 1
dd 5040302h, 8220706h, 0C0B0A09h, 220F0E0Dh
dd 22222222h, 22221110h, 3 dup(22222222h)
dd 14131222h, 18171615h, 1C1B1A19h, 201F1E1Dh
dd 22222222h, 498D21h
off_691FB8 dd offset loc_691894
dd offset loc_6918CF
byte_691FC0 db 0
align 4
dd 0CC010101h, 2 dup(0CCCCCCCCh)



sub_691FD0 proc near

var_104= byte ptr -104h
var_4= dword ptr -4
arg_0= dword ptr  4

sub esp, 104h
mov eax, dword_7EA140
xor eax, esp
mov [esp+104h+var_4], eax
push edi
mov edi, [esp+108h+arg_0]
movzx eax, word ptr [edi+2]
dec eax
cmp eax, 16h
ja loc_6920CF
movzx eax, ds:byte_692100[eax]
jmp ds:off_6920E8[eax*4]

loc_692008:
push 2
mov ecx, offset dword_88B1C0
call sub_6EA150
test eax, eax
jz short loc_692075
mov eax, [edi+4]
push ebx
mov ebx, dword_88D0F4
push esi
mov esi, eax
sub esi, ebx
test eax, eax
jz short loc_692073
test esi, esi
jz short loc_692073
push ebp
mov ebp, dword_88D100
mov ecx, eax
mov eax, ebp
sub eax, ebx
cdq
idiv esi
push eax
push ebp
push ecx
sub ecx, ebx
push ecx
lea ecx, [esp+124h+var_104]
push offset aDDDMoreD ; "%d : %d/%d More : %d"
push ecx  ; char *
call ds:sprintf
add esp, 18h
push 0
push 0
push 0F51EF5h
lea edx, [esp+120h+var_104]
push edx
push 1
mov ecx, offset unk_8264F8
call sub_5213D0
pop ebp

loc_692073:
pop esi
pop ebx

loc_692075:
mov eax, [edi+4]
mov dword_88D0F4, eax //BaseExp=
jmp short loc_6920C5

loc_69207F:
mov ecx, [edi+4]
mov dword_88D1B0, ecx //JobExp=
jmp short loc_6920C5

loc_69208A:
cmp dword ptr [ecx+11Ch], 0
jz short loc_6920A7
mov dword ptr [ecx+11Ch], 0
mov ecx, offset dword_88B1C0
call sub_6FC280

loc_6920A7:
mov edx, [edi+4]
mov dword_88D19C, edx //Zeny=
jmp short loc_6920C5

loc_6920B2:
mov eax, [edi+4]
mov dword_88D100, eax //BaseExpNext=
jmp short loc_6920C5

loc_6920BC:
mov ecx, [edi+4]
mov dword_88D1AC, ecx //JobExpNext=

//Weight=
//WeightMax=
//Search:; "Weight : %3d / %3d"

loc_494BB4:  ; "Weight : %3d / %3d"
push offset aWeight3d3d

loc_494BB9:  ; char *
push edx
call ebx ; sprintf
mov eax, dword_8797C0 //WeightMax=
add esp, 10h
xor edi, edi
cmp eax, 1
mov ecx, eax
jg short loc_494BD2
mov ecx, 1

loc_494BD2:
mov eax, dword_8797CC //Weight=
imul eax, 64h
cdq
idiv ecx
cmp eax, 32h
jl short loc_494BE7
mov edi, 0FFh

//BaseLv=
//JobLv=
//Search:; "Base Lv. %d"
//Search:; "Job Lv. %d"

loc_494A8B:
mov eax, dword_879710 //BaseLv=
push eax
push offset aBaseLv_D ; "Base Lv. %d"
lea ecx, [esp+2Ch]
push ecx  ; char *

loc_494ADB:
mov eax, dword_87971C //JobLv=
push eax
push offset aJobLv_D ; "Job Lv. %d"
lea ecx, [esp+2Ch]
push ecx  ; char *

//HPIndex=
//MaxHPTable=
//Search:

PuTTY 設定

2011-05-06T20:53:00.005+09:00

[2011/05/10 Update]

設定字型(挑喜歡的不過好像只能設等寬字型)

設定編碼(比較常用 UTF-8)

設定保持連線(設10)

由於 PuTTY 沒有內建 Tab 功能
所以找了 PuTTY Connection Manager 來實現 Tab 的功能
另外建議關閉它的 HotKeys 功能或是手動關閉會衝突的(Tools -> Options)
之前使用 VIM 結果預設值會影響使用就直接把它關閉
官網:
http://sourceforge.net/projects/puttycm/
http://puttycm.sourceforge.net/
下載點:
http://sourceforge.net/projects/puttycm/reviews/
這邊很奇妙它的下載點不在 Files 反而在 Reviews 裡不知道為啥
PuTTY 的官網:
http://www.chiark.greenend.org.uk/~sgtatham/putty/

samba 設定

2011-04-21T15:36:00.017+09:00

[2011/04/26 Update]

分享:
apt-get install samba //安裝 samba(安裝時會設定工作群組)
dpkg -i *.deb //安裝 gadmin-samba(用這個來設定 samba)偷懶XD
configuration //設定下面這些
/*
netbios name = Samba24 //主機名稱
workgroup = Workgroup //工作群組
hosts allow = 127. 192.168.0. //允許的來源的連線 IP
interfaces = 127.0.0.1/8 192.168.0.0/24 //選擇連線的網路卡 IP
remote announce = 192.168.0.255 //空白即可
remote browse sync = 192.168.0.255 //空白即可
*/
設定完後 記得設定使用者名稱和密碼
讀取:
Nautilus -> ^L -> "smb://192.168.*.*" //讀取 Windows 機器下分享的目錄(使用 IP 比較好)

參考資料:
http://wiki.debian.org.hk/w/Access_Windows_share
http://wiki.debian.org.hk/w/Share_directory_to_Windows_machine
http://packages.debian.org/en/squeeze/gadmin-samba

螢幕維修LIVE(?

2011-04-20T12:25:00.007+09:00

2011_0419-1730 //VH226C 開機不能 有電流聲和電子零件毀損聲
2011_0420-1030 //打完客服電話 等下午快遞來收件
          1240 //中午就來收走了
2011_0423 //快遞寄回來

測試後目前使用沒問題

DOSBox 設定

2011-04-15T00:04:00.006+09:00

Linux:
CONFIG -writeconf /home/username/dosbox.conf //Linux 版預設不會寫入設定檔

Windows:
C:\Users\username\AppData\Local\DOSBox\dosbox-0.74.conf //版本號碼可能會變動

HotKey:
^F4 //HOST 變更 DOSBox mount 的目錄檔案時 可以按這個重新讀取
^F10 //解除滑鼠鎖定(在 DOSBox 的視窗)

指令:
mount x path //x=磁碟機代號 ; path=指定的路徑
mount x path -t cdrom//模擬成光碟機(Windows 下建議用這個 配合虛擬光碟比較方便)
imgmount x path -t iso//指定 iso 檔模擬成光碟機(Linux 下 用這個 有 CD 音軌時比較完美)
                      //只支援 ISO , CUE/BIN 其它的似乎不行

參考資料
http://www.dosbox.com/wiki/CONFIG
http://www.dosbox.com/wiki/MOUNT
#19AhlY98 (Emulator) [ptt.cc]

SyntaxHighlighter

2011-04-12T19:47:00.005+09:00

參考連結:
http://alexgorbatchev.com/wiki/SyntaxHighlighter
http://alexgorbatchev.com/SyntaxHighlighter/manual/brushes/

Developer’s Guide

2011-04-04T23:05:00.000+09:00

http://code.google.com/p/google-styleguide/
http://google-styleguide.googlecode.com/svn/trunk/cppguide.xml
http://www.python.org/
http://docs.python.org/devguide/
http://www.python.org/dev/peps/pep-0007

wine 設定語系執行

2011-04-03T01:29:00.004+09:00

dpkg-reconfigure locales //得先增加欲執行的語系 不然會錯誤
env LC_ALL=ja_JP.UTF-8 wine //執行的 Windows 程式

Mozilla Firefox 設定

2011-03-23T18:01:00.001+09:00

about:config -> app.update.enabled -> false
                browser.startup.homepage -> about:config
                browser.startup.page -> 0
                browser.tabs.autoHide -> true
                browser.tabs.closeWindowWithLastTab -> false
                signon.rememberSignons -> false
                New -> Boolean -> extensions.checkCompatibility.4.0 -> false

參考網址:
http://www.mydigitallife.info/2011/03/14/disable-add-ons-plugin-and-extension-compatibility-check-in-firefox-4/

debian 6 安裝 vmware tools

2011-03-10T01:12:00.001+09:00

vmware workstation 7.1.3 的 debian 6 上安裝 vmware tools 的前置工作

uname -r (使用這個看安裝的 linux-headers-版本號碼)
apt-get install gcc-4.3 make linux-headers-2.6.32-5-686
apt-get install gcc-4.3 make linux-headers-2.6.32-5-amd64

vmware 錯誤訊息(停電後重新啟動)

2011-03-09T12:21:00.002+09:00

理由:ファイルをロックできませんでした。

解決方法:
刪除下列這些類似目錄
*.vmdk.lck
*.vmem.lck

然後重新啟動即可

早上起床停電了其中一台vm有這個情形(睡覺前只開2台)

參考連結:
http://plaza.rakuten.co.jp/nyokkinyoki/diary/200901160000/

vmware workstation 7.1.3 with windows 7 sp1(dynamic memory)

2011-03-07T23:22:00.005+09:00

錯誤訊息:
Resolving the error: The virtual machine is unable to reserve memory
http://kb.vmware.com/selfservice/microsites/search.do?language=en_US&cmd=displayKC&externalId=1014955

解決方法:(參考這 2 個網址)
http://communities.vmware.com/thread/303466?start=45&tstart=0
http://www.techhead.co.uk/fix-poor-vm-performance-errors-with-vmware-workstation-7-1-3-after-applying-microsoft-windows-7-sp1

C:\ProgramData\VMware\VMware Workstation\config.ini
vmmon.disableHostParameters = "TRUE"

加入上面這行然後"重開機"即可

問題原因:
似乎是 windows 7 sp1 和 windows server 2008 r2 sp1 新功能的 dynamic memory 所造成的

實測:
目前同時開 5 台 vm 實測沒問題(1G ram vm * 5 ; host 8G ram win7sp1)
之前 ws2008r2 sp1 開機黑屏+延遲的問題似乎也沒了
應該之後的版本會修正這個問題

firefox & thunderbird 錯誤訊息

2011-03-06T14:29:00.005+09:00

./firefox-bin: error while loading shared libraries: libgtk-x11-2.0.so.0: cannot open shared object file: No such file or directory
./thunderbird-bin: error while loading shared libraries: libgtk-x11-2.0.so.0: cannot open shared object file: No such file or directory

./firefox-bin: error while loading shared libraries: libgtk-x11-2.0.so.0: wrong ELF class: ELFCLASS64
./thunderbird-bin: error while loading shared libraries: libgtk-x11-2.0.so.0: wrong ELF class: ELFCLASS64

解決方式:
裝了 ia32-libs-gtk 後就能正常跑官方的 firefox 和 thunderbird
但是 flash 和 java 都有問題用之前文章的是沒問題

libreoffice64 在 debian64 上不能執行的解決辦法

2011-03-01T17:00:00.013+09:00

[2011/03/29 Update]
新版的 3.3.2 已經沒有問題(只有 lenny 64 會需要下面的解法)

每次執行時視窗會跑一半就跳掉了
用 terminal 執行 libreoffice 會有下列錯誤訊息
/opt/libreoffice/program/soffice.bin: symbol lookup error: /opt/libreoffice/basis3.3/program/libcairo.so.2: undefined symbol: pixman_region32_init

執行下列這行

cp /usr/lib/libcairo.so.2 /opt/libreoffice/basis3.3/program

或

cd /opt/libreoffice/basis3.3/program
ln -s /usr/lib/libcairo.so.2

如果檔案已經存在就把它改名就好

Debian 6 沒有這問題不過啟動時間有點久還不知道為什麼

單一網路卡(DHCP+NAT)設定修改

2011-02-22T21:43:00.002+09:00

使用實體網路卡(PPPOE)+虛擬網路卡(DHCP)
dhcpd.conf 的寫法沒有改變(參考前篇)
不過這樣改的話
防火牆流量顯示都會集中顯示在 eth0
不知道算不算缺點
要注意的是 pppoeconf 設定時
選擇的網路卡要注意一下
設成 DHCP 的網路卡可能會讓防火牆錯誤(沒試過就是)

vim /etc/network/interfaces
/*
auto eth0
iface eth0 inet static
address 192.168.10.50
netmask 255.255.255.0

auto eth0:0 //虛擬的網卡(之前兩張網路卡時是設 eth1)
iface eth0:0 inet static //這行的 eth 也要改
address 192.168.10.254
netmask 255.255.255.0
*/
/etc/init.d/networking restart //重新啟動網路
vim /etc/default/dhcp3-server //INTERFACES="eth0" eth0:0 還是算 eth0 的部份(應該XD)
                              //之前兩張網路卡時是設 eth1

vim 筆記

2011-02-18T18:04:00.023+09:00

[2011/04/08 Update]

: //cmd
esc //normal mode
h,j,k,l //left , down , up , right
i,I //insert mode ; i = 遊標左邊 ; I = 行首
a,A //insert mode ; a = 遊標右邊 ; A = 行末
o,O //insert mode 插入一行空白 ; o = 遊標所在位置下一行 ; O = 遊標所在位置
r,R //r = 取代字元 ; R= replace mode
x,X //x = delete ; X = backspace
d,D(c,C) //dd = 刪除整行 ; D = 刪除現在字元到行末
         //d(h,l) = 刪左邊字元 , 刪右邊字元
         //d(j,k) = 刪整行到上一行 , 刪整行到下一行
         //c,C 功能相同 但刪完會進入 insert mode
0,$,^ //行首 , 行末 , 行首(不包括空白)
gg,G //檔案開始,檔案結束
w,W,e,E,b,B //w 單字字首(往下找)
            //e 單字字尾(往下找)
            //b 單字字首(往上找)
            //大小寫的差別在標點符號(大寫以標點符號區隔,小寫用單字區隔)
y,Y //y = 複制 ; Y = 複制整行
p,P //p = 遊標的右邊貼上 ; P = 遊邊的左邊貼上
v,V //v 標記模式 ; V 標記整行
ggVG //全選
u,^y //u undo , ^y redo
/,n,N // / 搜尋 ; n 找下一個 ; N 找上一個
:%s/x/y/g //搜尋取代 x -> y %:指定全檔 g:指定每行有2個以上符合的全置換
:X //vim 加密
:sp //視窗分割 ^w+j,k 來切換下,上 or ^ww 切換視窗
:files //查詢已開啟的檔案
:e path //開啟 path
:e ++enc=big5 path //指定編碼開啟檔案(省略 path 時可以改變編輯中檔案的編碼)
^oo //開啟上次關閉時的檔案
:se ff=unix //換行格式 unix
:se ff=dos //換行格式 dos
:tabe path //在 tab 中 開啟 path
:tabc //關閉 現在的 tab
:tabo //關閉 其它的 tab
:tabn //切換到下一個 tab ; gt ; ^PAGEDOWN
:tabp //切換到上一個 tab ; gT ; ^PAGEUP
:tabs //顯示所有 tab
:tabm number //切換 tab 順序
:tabr //第一個 tab
:tabl //最後一個 tab

Debian 快速設定

2011-02-16T23:01:00.015+09:00

[2011/06/22 Update]

//Setting:
dpkg-reconfigure locales
vim /etc/hostname
vim /etc/hosts
vim /etc/sudoers


//Install:
apt-cdrom add -m
apt-get dist-upgrade
apt-get update
apt-get upgrade
apt-get install ia32-libs //64bit Only
apt-get install ia32-libs-gtk //64bit Only
apt-get install ntfs-3g
apt-get install pppoeconf //pppoeconf , pon dsl-provider , poff
apt-get install ibus
apt-get install scim-modules-table
apt-get install vim
apt-get install vim-gnome
apt-get install wine //env LC_ALL=ja_JP.UTF-8 wine
apt-get install ttf-wqy-microhei
apt-get install ttf-wqy-zenhei


//Depends:
//Rainlendar
apt-get install libcurl3
apt-get install tofrodos

//TrueCrypt
apt-get install cryptsetup
apt-get install fuse-utils

//VirtualBox
apt-get install libqt4-opengl

//Wine
apt-get install lib32nss-mdns //64bit Only


//Others:
//Java
apt-get install equivs
apt-get install unixodbc
apt-get install ia32-libs //64bit Only
dpkg -i *.deb
/*
ia32-sun-java6-bin //64bit Only
java-common
sun-java6-bin
sun-java6-fonts
sun-java6-jdk
sun-java6-jre
sun-java6-plugin
*/


//Services:
//DHCP
apt-get install dhcp3-server
vim /etc/network/interfaces
/*
auto eth0
iface eth0 inet static
address 192.168.10.50
netmask 255.255.255.0

auto eth0:0
iface eth0:0 inet static
address 192.168.10.254
netmask 255.255.255.0
*/
/etc/init.d/networking restart
vim /etc/default/isc-dhcp-server //INTERFACES="eth0"
vim /etc/dhcp/dhcpd.conf
/*
# option definitions common to all supported networks...
# option domain-name "example.org";
# option domain-name-servers ns1.example.org, ns2.example.org;

# default-lease-time 600;
# max-lease-time 7200;

# A slightly different configuration for an internal subnet.
subnet 192.168.10.0 netmask 255.255.255.0 {
  range 192.168.10.100 192.168.10.200;
  option domain-name-servers 168.95.192.1, 168.95.1.1;
  option domain-name "belldandy.org";
  option routers 192.168.10.254;
  option broadcast-address 192.168.10.255;
  default-lease-time 60000;
  max-lease-time 720000;
  host vm-debiandt {
    hardware ethernet 00:0C:29:96:A1:6A;
    fixed-address 192.168.10.55;
  }
  host vm-win7dt {
    hardware ethernet 00:0c:29:3c:16:5a;
    fixed-address 192.168.10.57;
  }
  host vm-ws2008r2dev {
    hardware ethernet 00:0c:29:39:fb:40;
    fixed-address 192.168.10.58;
  }
  host vm-debiandev {
    hardware ethernet 00:0c:29:6b:90:d4;
    fixed-address 192.168.10.59;
  }
  host vm-debian64dev {
    hardware ethernet 00:0c:29:51:a2:25;
    fixed-address 192.168.10.60;
  }
  host vm-win7 {
    hardware ethernet 00:0c:29:20:0f:71;
    deny booting;
  }
  host vm-ws2008r2 {
    hardware ethernet 00:0c:29:38:3e:90;
    deny booting;
  }
}
*/
/etc/init.d/isc-dhcp-server restart //vim /var/lib/dhcp/dhcpd.leases

//SSH
apt-get install ssh
vim /etc/ssh/sshd_config
/*
Port 22
PermitRootLogin no
*/
vim /etc/hosts.allow //sshd:192.168.0.0
vim /etc/hosts.deny //sshd:all
/etc/init.d/ssh restart

//SAMBA
apt-get install samba
dpkg -i *.deb //gadmin-samba
/*
netbios name =
workgroup =
hosts allow = 127. 192.168.0.
interfaces = 127.0.0.1/8 192.168.0.0/24
remote announce =
remote browse sync =
*/

vimrc 設定

2011-02-13T15:24:00.014+09:00

[2011/06/22 Update]
Windows 下是修改這個檔案
C:\Program Files (x86)\Vim\_vimrc
Linux 的話要看套件
Debian 是在 /etc/vim/vimrc(vim) /etc/vim/gvimrc(gvim)

另外就是修改設定時
有些副程式會更改設定值要注意一下

C:\Program Files (x86)\Vim\_vimrc
/*
au GUIEnter * winpos 0 0
language english
se gfn=mingliu:h12
*/

/etc/vim/vimrc /etc/vim/gvimrc
/*
se gfn=WenQuanYi\ Zen\ Hei\ Mono\ 12
*/

Common:
/*
se clipboard=unnamed
se enc=utf-8
se fenc=utf-8
se fencs=ucs-bom,utf-8,big5
se ffs=dos,unix
se ic
se lines=32 columns=96
se list
se listchars=tab:>-,eol:<,trail:=
se nobackup
se nowritebackup
se noswapfile
se nu
se wrap
*/

Check & Setting Tool 0.4.1

2011-02-05T16:41:00.005+09:00

[2011/02/11 Update]

Public Class Form1
    Dim regget(10) As String
    Dim regpath(5) As String
    Dim servicename(6) As String
    Dim strComputer = "."
    Dim objWMIService = GetObject("winmgmts:\\" & strComputer)
    Dim colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Check & Setting Tool 0.4.1(Need Administrator)"

        TabPage1.Text = "Check & Setting"
        TabPage2.Text = "ReadMe"

        TextBox1.Text = "ComputerName"
        TextBox2.Text = "ComputerWorkgroup"
        TextBox3.Text = "RegisteredOwner"
        TextBox4.Text = "RegisteredOrganization"
        TextBox5.Text = "AutoPlay"
        TextBox6.Text = "User Account Control"
        TextBox25.Text = "Folder Option"

        Button1.Text = "Refresh"
        Button2.Text = "Default All"
        Button3.Text = "Setting"
        Button4.Text = "Setting"
        Button13.Text = "Setting"

        regpath(0) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
        regpath(1) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
        regpath(2) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers"
        regpath(3) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
        regpath(4) = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services"

        Me.Button1.PerformClick()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each objComputer In colSettings
            TextBox7.Text = objComputer.Name
            TextBox8.Text = objComputer.Workgroup
        Next

        regget(0) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOwner", Nothing)
        regget(1) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOrganization", Nothing)
        regget(2) = My.Computer.Registry.GetValue _
                    (regpath(1), "Hidden", Nothing)
        regget(3) = My.Computer.Registry.GetValue _
                    (regpath(1), "HideFileExt", Nothing)
        regget(4) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowSuperHidden", Nothing)
        regget(5) = My.Computer.Registry.GetValue _
                    (regpath(1), "SeparateProcess", Nothing)
        regget(6) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowCompColor", Nothing)
        regget(7) = My.Computer.Registry.GetValue _
                    (regpath(1), "SharingWizardOn", Nothing)
        regget(8) = My.Computer.Registry.GetValue _
                    (regpath(2), "DisableAutoplay", Nothing)
        regget(9) = My.Computer.Registry.GetValue _
                    (regpath(3), "EnableLUA", Nothing)

        TextBox9.Text = regget(0)
        TextBox10.Text = regget(1)

        If regget(2) = 1 And _
            regget(3) = 0 And _
            regget(4) = 1 And _
            regget(5) = 1 And _
            regget(6) = 0 And _
            regget(7) = 0 Then
            TextBox26.Text = "Default Setting"
        Else
            TextBox26.Text = "User Setting"
        End If

        If regget(8) = 1 Then
            TextBox11.Text = "Disabled"
            Button5.Text = "Enabled"
        ElseIf regget(8) = 0 Then
            TextBox11.Text = "Enabled"
            Button5.Text = "Disabled"
        End If

        If regget(9) = 0 Then
            TextBox12.Text = "Disabled"
            Button6.Text = "Enabled"
        ElseIf regget(9) = 1 Then
            TextBox12.Text = "Enabled"
            Button6.Text = "Disabled"
        End If

        servicename(0) = "WinDefend"
        servicename(1) = "MpsSvc"
        servicename(2) = "Themes"
        servicename(3) = "AudioSrv"
        servicename(4) = "wscsvc"
        servicename(5) = "WSearch"
        For i = 0 To 5 Step 1
            If My.Computer.Registry.GetValue _
               (regpath(4) & "\" & servicename(i), _
               "DisplayName", Nothing) Is Nothing Then
                Select Case servicename(i)
                    Case servicename(0)
                        TextBox13.Text = "No Service"
                        TextBox19.Text = "No Service"
                        Button7.Text = "No Service"
                        Button7.Enabled = False
                    Case servicename(1)
                        TextBox14.Text = "No Service"
                        TextBox20.Text = "No Service"
                        Button8.Text = "No Service"
                        Button8.Enabled = False
                    Case servicename(2)
                        TextBox15.Text = "No Service"
                        TextBox21.Text = "No Service"
                        Button9.Text = "No Service"
                        Button9.Enabled = False
                    Case servicename(3)
                        TextBox16.Text = "No Service"
                        TextBox22.Text = "No Service"
                        Button10.Text = "No Service"
                        Button10.Enabled = False
                    Case servicename(4)
                        TextBox17.Text = "No Service"
                        TextBox23.Text = "No Service"
                        Button11.Text = "No Service"
                        Button11.Enabled = False
                    Case servicename(5)
                        TextBox18.Text = "No Service"
                        TextBox24.Text = "No Service"
                        Button12.Text = "No Service"
                        Button12.Enabled = False
                End Select
            Else
                Select Case servicename(i)
                    Case servicename(0)
                        Dim WinDefend = objWMIService.Get _
                        ("Win32_Service.Name='WinDefend'")
                        TextBox13.Text = WinDefend.DisplayName
                        TextBox19.Text = WinDefend.StartMode & "," & WinDefend.State()
                        If WinDefend.StartMode = "Disabled" Then
                            Button7.Text = "Auto"
                        ElseIf WinDefend.StartMode = "Auto" Then
                            Button7.Text = "Disabled"
                        End If
                    Case servicename(1)
                        Dim MpsSvc = objWMIService.Get _
                        ("Win32_Service.Name='MpsSvc'")
                        TextBox14.Text = MpsSvc.DisplayName
                        TextBox20.Text = MpsSvc.StartMode & "," & MpsSvc.State()
                        If MpsSvc.StartMode = "Disabled" Then
                            Button8.Text = "Auto"
                        ElseIf MpsSvc.StartMode = "Auto" Then
                            Button8.Text = "Disabled"
                        End If
                    Case servicename(2)
                        Dim Themes = objWMIService.Get _
                        ("Win32_Service.Name='Themes'")
                        TextBox15.Text = Themes.DisplayName
                        TextBox21.Text = Themes.StartMode & "," & Themes.State()
                        If Themes.StartMode = "Disabled" Then
                            Button9.Text = "Auto"
                        ElseIf Themes.StartMode = "Auto" Then
                            Button9.Text = "Disabled"
                        End If
                    Case servicename(3)
                        Dim AudioSrv = objWMIService.Get _
                        ("Win32_Service.Name='AudioSrv'")
                        TextBox16.Text = AudioSrv.DisplayName
                        TextBox22.Text = AudioSrv.StartMode & "," & AudioSrv.State()
                        If AudioSrv.StartMode = "Disabled" Then
                            Button10.Text = "Auto"
                        ElseIf AudioSrv.StartMode = "Auto" Then
                            Button10.Text = "Disabled"
                        End If
                    Case servicename(4)
                        Dim wscsvc = objWMIService.Get _
                        ("Win32_Service.Name='wscsvc'")
                        TextBox17.Text = wscsvc.DisplayName
                        TextBox23.Text = wscsvc.StartMode & "," & wscsvc.State
                        If wscsvc.StartMode = "Disabled" Then
                            Button11.Text = "Auto"
                        ElseIf wscsvc.StartMode = "Auto" Then
                            Button11.Text = "Disabled"
                        End If
                    Case servicename(5)
                        Dim WSearch = objWMIService.Get _
                        ("Win32_Service.Name='WSearch'")
                        TextBox18.Text = WSearch.DisplayName
                        TextBox24.Text = WSearch.StartMode & "," & WSearch.State
                        If WSearch.StartMode = "Disabled" Then
                            Button12.Text = "Auto"
                        ElseIf WSearch.StartMode = "Auto" Then
                            Button12.Text = "Disabled"
                        End If
                End Select
            End If
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim RegisteredOwner As String
        RegisteredOwner = TextBox9.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOwner", RegisteredOwner, Microsoft.Win32.RegistryValueKind.String)
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim RegisteredOrganization As String
        RegisteredOrganization = TextBox10.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOrganization", RegisteredOrganization, Microsoft.Win32.RegistryValueKind.String)
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If regget(8) = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "1", Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf regget(8) = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "0", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If regget(9) = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "0", Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf regget(9) = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "1", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Button7.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button7.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Button8.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button8.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If Button9.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button9.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If Button10.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button10.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If Button11.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button11.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If Button12.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button12.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        My.Computer.Registry.SetValue _
        (regpath(1), "Hidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "HideFileExt", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowSuperHidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SeparateProcess", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowCompColor", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SharingWizardOn", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOwner", "Belldandy", Microsoft.Win32.RegistryValueKind.String)
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOrganization", "Syaorin", Microsoft.Win32.RegistryValueKind.String)
        My.Computer.Registry.SetValue _
        (regpath(2), "DisableAutoplay", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(3), "EnableLUA", "0", Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox13.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\WinDefend", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox14.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\MpsSvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox15.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\Themes", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox16.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\AudioSrv", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox17.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\wscsvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox18.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\WSearch", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub
End Class

Physics

2011-01-28T16:28:00.002+09:00

time = articles * gravity

時間 = 物體 * 衰變 or 衰變 = 物體 * 時間 ?

Sleipnir 網頁自動重新整理設定位置

2011-01-27T20:18:00.000+09:00

CCC2 Scaling Options 設定位置

2011-01-27T15:59:00.000+09:00

新版的 Catalyst 11.1 可以下載了
裝好後設定的介面也改成 CCC2 了
不過老樣子
裝好後畫面預設值會有黑邊問題
要從這邊手動調整 My Digital Flat-Panels -> Scaling Options(Digital Flat-Panels)

Debian 使用升級光碟升級系統

2011-01-25T22:47:00.004+09:00

今天看到 5.0.8 出了就升級一下
記得用 root 裝 ; 用 sudo 好像不給裝

apt-cdrom add -m //將光碟加入來源(/etc/apt/sources.list)
apt-get dist-upgrade //升級到新版本

參考資料:
http://www.debian.org/doc/manuals/apt-howto/ch-apt-get.zh-tw.html
http://www.debian.org/doc/manuals/apt-howto/ch-basico.zh-tw.html#s-cdrom

Debian 安裝 Java(JRE)

2011-01-24T23:25:00.005+09:00

//先取得下面 5 個檔案
ia32-sun-java6-bin_6-22-0lenny1_amd64.deb // http://packages.debian.org/lenny/ia32-sun-java6-bin
java-common_0.30_all.deb // http://packages.debian.org/lenny/java-common
sun-java6-bin_6-22-0lenny1_amd64.deb // http://packages.debian.org/lenny/sun-java6-bin
sun-java6-jre_6-22-0lenny1_all.deb // http://packages.debian.org/lenny/sun-java6-jre
sun-java6-plugin_6-22-0lenny1_amd64.deb // http://packages.debian.org/lenny/sun-java6-plugin

//檔案準備好後 先把依存性相關的安裝好(下面3個)

System -> Administration -> Syanaptic Package Manager
Search "equivs" //java-common
Mark for Installation "equivs"

Search "unixodbc" //sun-java6-bin
Mark for Installation "unixodbc"

Search "ia32-libs" //ia32-sun-java6-bin
Mark for Installation "ia32-libs"

dpkg -i *.deb //檔案準備好 放一起後 執行就能安裝了

32 位元的要抓 i386 版 ; ia32-sun-java6-bin_6-22-0lenny1_amd64.deb & ia32-libs 的部份不用裝
裝完後可以到這測試 : http://java.com/en/download/testjava.jsp

Linux 常用指令筆記

2011-01-23T21:35:00.010+09:00

[2011/02/20 Update]

chmod //變更權限
history //顯示使用過的指令
!(number) //執行使用過的指令編號
history -c //清除使用過的指令(暫時)
rm /home/username/.bash_history //清除使用過的指令(永久)
iconv -f big5 -t utf-8 filename -o outfilename //轉碼 -f(原始編碼) -t(輸出編碼)
uname //顯示系統資訊
tar -C 目錄 -xjvf 檔名.bz2 //解壓縮(x)檔案.bz2(z)
tar -C 目錄 -xzvf 檔名.gz //解壓縮(x)檔案.gz(z)
tar -tvf 檔名 //查看壓縮檔(t) 壓(解)縮處理中檔名(v) 處理的檔案(f) 視壓縮檔檔名加入 j,z
tar -cvf 壓縮檔名 目標 //壓縮(c)檔案 視壓縮類型加入 j,z
locale //環境變數
LANG=en_US.UTF-8 //設定環境
LANG=zh_TW.BIG5 //設定環境

Debian 變更 hostname 後程式和服務執行緩慢的解決方法

2011-01-14T23:38:00.008+09:00

[2011/01/17 Update]
使用 hostname 指令變更主機名稱時
有時候(使用 DHCP 或其它原因不明) 主機名稱會加上 domain name
這時就會造成有些程式或服務異常的緩慢因為要去查 DNS (查到的資料這樣寫)

這時候直接從這邊改回想要的主機名稱(記得拿掉 domain name)

vim /etc/hosts

就可以解決緩慢的問題

vim /etc/hostname
vim /etc/hosts

建議是直接改這 2 個檔案來更改主機名稱比較沒有問題

/etc/init.d/hostname.sh

不想重新開機可以這樣直接使用主機名稱
只是我試的結果會靠成程式和服務異常緩慢(不確定是不是用了 DHCP 的關係)
改好還是重開會好點

ps:還不太確定這樣解釋對不對不過解決的方法沒有錯

Windows 7 開機程式的安裝與移除

2011-01-07T14:55:00.001+09:00

前天重灌了 Windows 7
然後那天忽然忘了 Windows 7 安裝時
會把開機程式裝在 IDE 硬碟上(優先順序是 IDE>SATA)
可能是 BIOS 先抓到 IDE 後開完機
才呼叫 SATA 的硬碟偵測程式(SATA 跑 AHCI)
害我想說怎麼裝完 C 碟沒有開機程式(怕哪天拔了 IDE 硬碟 SATA就開不了機)
下面是把開機程式裝到 SATA 硬碟的方法
在 Windows 裡用命令列提示字元就可以

BOOTSECT.EXE /NT60 C: //這行不一定要執行 看你的 OS (VISTA 前的才需要)
BCDBOOT C:\WINDOWS /L JA-JP /S C: //把開機程式安裝到 C 碟 (JA-JP 是語系 請參考 Boot 目錄自行設定)

裝完沒問題後就換移除 IDE 碟上的開機程式(這邊我的 IDE 硬碟磁碟代號是 I)

TAKEOWN /F I:\boot\*.* /A
CACLS I:\boot\*.* /E /G Administrators:F
TAKEOWN /F I:\bootmgr /A
CACLS I:\bootmgr /E /G Administrators:F

執行完後 Boot 目錄和 bootmgr 就可以移除了

其實也可以用視窗選檔案然後右鍵點內容設定
只是打指令比較快

Debian 5.0.7 AMD64 Firefox 3.6.13 安裝使用方法

2011-01-02T02:40:00.013+09:00

[2011/03/03 Update]
本來已經放棄在 Debian 上使用 Firefox 了(Firefox 官網沒有 64-bit 的版本 ; 32 的又不能跑)

後來翻到這篇 http://wiki.ubuntu-tw.org/index.php?title=Ubuntu-AMD64-Howto
然後測試了 ia32-libs 但是還是不行(Firefox 能跑了但是不能連線還一堆 Error)

所以我又用了 iceweasel 然後改相容性檢查
參考這篇:http://kb.mozillazine.org/Extensions.checkCompatibility
然後 pcman 是能裝了但是不能跑
之前也測過升級 iceweasel 到 3.6.13 它還是不能用 pcman (不過那時候似乎沒測過改相容性)

最後我找到這個 http://ftp.mozilla.org/pub/mozilla.org/firefox/nightly/
裡面有 64-bit 的 Firefox(這個檔案 : firefox-3.6.13.en-US.linux-x86_64.tar.bz2)
解開來執行 firefox 就可以了(建議解壓縮後放到 /opt)
這邊的下載點有變動了請改用這個 http://ftp.mozilla.org/pub/mozilla.org/firefox/nightly/2010/12/2010-12-01-03-mozilla-1.9.2/firefox-3.6.13.en-US.linux-x86_64.tar.bz2

Flash Player 也是照上一篇的方法把檔案放進 plugins 裡就能使用了
另外要注意的是這版本會一直升級測試版(?
要把 app.update.enabled (about:config) 改成 false (直接關閉自動升級)

結論 64-bit 的 OS 轉換時比較麻煩一點(?
(其實我裝 Firefox 只是想用 pcman 的 extensions 上 bbs)

Debian 5.0.7 AMD64 FlashPlayer 安裝方法

2011-01-01T03:06:00.001+09:00

首先到這下載 64-bit 的 FlashPlayer
http://labs.adobe.com/
http://labs.adobe.com/downloads/flashplayer10_square.html

記得抓 Linux 版的(?
flashplayer10_2_p3_64bit_linux_111710.tar.gz (使用此版測試沒問題)

然後解壓縮出 libflashplayer.so 這個檔案
然後 cp libflashplayer.so /usr/lib/iceweasel/plugins (權限不足記得 sudo)
接著重開 iceweasel 就可以了(這邊是示範裝在 iceweasel 其它的應該差不多)

基本上是很少用 Linux 看 Flash
結果臨時要用就找了一下方法
感覺上 Linux 64
對 32 位元的程式相容性沒有 Windows 64 來的好
不過也可能是設定問題XD

Windows 7 & Windows Server 2008 R2 快速設定流程

2010-12-28T19:36:00.005+09:00

[2011/03/15 Update]
Windows 7:

control userpasswords2
Desktop(Right Click) -> View -> Small icons
                        Auto arrange icons -> Selected
Recycle Bin(Right Click) -> Properties -> Don't move files to the Recycle Bin. Remove files immediately when deleted.
Control Panel -> View by: Small icons
                 AutoPlay -> Use AutoPlay for all mdeia and devices -> Not selected
                 Notification Area Icons -> Turn system icons on or off -> Action Center -> Off
                 Power Options -> Balanced(recommended) -> Change plan settings -> Change advanced power settings -> Display -> Turn off display after -> Setting: Nerver(0)
                                                                                                                     Hard disk -> Turn off hard disk after -> Setting: Nerver(0) // WS2008R2 Default
                                                                                                                     Sleep -> Sleep after -> Setting: Nerver(0) // WS2008R2 Default
                                                                                                                     POWERCFG -H OFF
                 System -> Advanced system settings -> System Protection -> Configure -> Turn off system protection // WS2008R2 n/a
                                                       Remote -> Allow Remote Assistance connections to this computer -> Not selected // WS2008R2 n/a
                 User Accounts -> Change User Account Control settings -> Never notify
Folder Options -> View -> Advanced settings -> Hidden files and folders -> Show hidden files, folders, and drives
                                               Hide extensions for known file types -> Not selected
                                               Hide protected operating system files (Recommended) -> Not selected
                                               Launch folder windows in a separate process -> Selected
                                               Show encrypted or compressed NTFS files in color -> Not selected
                                               Use Sharing Wizard (Recommended) -> Not selected
Internet Options -> Home page -> Use blank
                    Browsing history -> Delete browsing history on exit -> Selected
                                        Delete... -> Form data -> Selected
                                                     Passwords -> Selected
                                                     InPrivate Filtering data -> Selected
Taskbar and Start Menu -> Lock the taskbar -> Selected // WIN7 Default
                          Auto-hide the taskbar -> Selected
                          Use small icons -> Selected
services.msc -> Security Center -> Disabled // WS2008R2 n/a
                Windows Defender -> Disabled
                Windows Firewall -> Disabled
taskschd.msc -> Task Scheduler (Local) -> Task Scheduler Library -> Microsoft -> Windows -> Defrag -> ScheduledDefrag -> Disabled
                                                                                            Maintenance -> WinSAT -> Disabled // WS2008R2 n/a
Computer Name & Workgroup
HKEY_LOCAL_MACHINE -> SOFTWARE -> Microsoft -> Windows NT -> CurrentVersion -> RegisteredOwner
                                                                               RegisteredOrganization

Windows Server 2008 R2:

control userpasswords2
Administrative Tools -> Local Security Policy -> Account Policies -> Password Policy -> Maximum password age -> 0
                                                 Local Policies -> Security Options -> Interactive logon : Do not require CTRL+ALT+DEL -> Enabled
                        Server Manager -> Server Summary -> Computer information -> Do not show me this console at logon -> Selected
                                                            Security Information -> Configure IE ESC -> Administrators: -> Off
                                                                                                        Users: -> Off
                                          Features Summary -> Add Roles -> File Services -> Windows Search Service -> Selected
                                                              Add Features -> Desktop Experience -> Selected
                                                                              Wireless LAN Service -> Selected
Control Panel -> System -> Advanced system settings -> Advanced -> Performance Settings -> Visual Effects -> Adjust for best appearance
                                                                                           Advanced -> Processor scheduling -> Programs
                                                                                           Date Execution Prevention -> Turn on DEP for essential Windows programs and services only
gpedit.msc -> Computer Configuration -> Administrative Templates -> System -> Display Shutdown Event Tracker -> Disabled
services.msc -> Themes -> Automatic
                Windows Audio -> Automatic

其它設定:

regedit
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\MuiCache


Administrative Tools -> Local Security Policy -> Network List Manager Policies -> Unidentified Networks -> Location type -> Private
                                                                                                           User permissions -> User cannot change location
                                                 Software Restriction Policies -> Additional Rules -> New Path Rule (Action -> New Software Restriction Policies)
C:\Program Files (x86)\Internet Explorer\iexplore.exe
C:\Program Files (x86)\Windows Media Player\wmplayer.exe
C:\Program Files\Internet Explorer\iexplore.exe
C:\Program Files\Windows Media Player\wmplayer.exe
C:\Windows\System32\WinSAT.exe // WS2008R2 n/a


Network and Sharing Center -> Change advanced sharing settings -> Home or Work -> HomeGroup connections -> Use user accounts and passwords to connect to other computers -> Selected // WS2008R2 n/a


C:\WINDOWS\system32\drivers\etc\hosts


cmd
set devmgr_show_nonpresent_devices=1
start devmgmt.msc

BOOTSECT.EXE /NT60 C:
BCDBOOT C:\WINDOWS /L JA-JP /S C:

AMD(ATI)人品測試程式

2010-12-16T21:35:00.002+09:00

最近出了 10.12 就下載來試用
一樣不給安裝
安裝程式會找不到 Display Driver 和 CCC
於是使用強制安裝的方法
先執行安裝程式 10-12_vista64_win7_64_dd_ccc_enu.exe
解壓縮完後
開啟下列的檔案
C:\ATI\Support\10-12_vista64_win7_64_dd_ccc_enu\Config\InstallManager.cfg

WorkaroundInstall=true //把這行改成 true ; 預設值是 false

然後到這邊 C:\ATI\Support\10-12_vista64_win7_64_dd_ccc_enu
執行 setup.exe
這時安裝時就有 Display Driver 和 CCC 可以選了

中間有試用過移除驅動程式的軟體
結果更慘連裝置管理員的驅動都不能安裝
後來不斷的嚐試後(也不知道做了什麼)
10.9 的 Driver 忽然安裝成功了
然後就用強制安裝法把 10.9 的 Display Driver 和 CCC 都裝好了
本來不想無謂生事了(上面那些弄了4小時)
後來想說10.12也試一下強制安裝
結果就順利升級上去了

問題點的話
感覺是在於用了第3方清除驅動程式的軟體
可能清除了不該清除的東西(不過這也只是臆測-.-)
也可能 Windows 7 用太久了
常常安裝移除一大堆有的沒的
總之原因不明-.-
白白浪費了4小時= =

Debian 5.0.7 ssh 設定

2010-12-15T22:07:00.000+09:00

//ssh 安裝方法
System -> Administration -> Syanaptic Package Manager
Search "ssh"
Mark for Installation "ssh"

vim /etc/ssh/sshd_config
Port 22 //改一下想要的 port 比較安全
PermitRootLogin no //禁止 root 登入

vim /etc/hosts.allow
sshd:192.168.0.0 //設定允許 ssh 連線的 ip

vim /etc/hosts.deny
sshd:all //設定不允許所有連線(不過 allow 裡的例外)

/etc/init.d/ssh restart //重新啟動

目前是使用這套 ssh 連線軟體(不過它也很久沒更新)
http://www.chiark.greenend.org.uk/~sgtatham/putty/

Debian 5.0.7 DHCP+NAT

2010-12-11T12:24:00.008+09:00

首先需要2張網路卡(VM下就新增一張就好)

//DHCP
System -> Administration -> Syanaptic Package Manager
Search "dhcp3-server"
Mark for Installation "dhcp3-server" //先安裝 dhcp3-server

vim /etc/network/interfaces //編輯網路卡位址(eth1)
auto eth1
iface eth1 inet static
address 192.168.10.254
netmask 255.255.255.0

/etc/init.d/networking restart //重新啟動網路

vim /etc/default/dhcp3-server //設定 dhcp3-server 使用的網路卡
INTERFACES="eth1"

vim /etc/dhcp3/dhcpd.conf
# option definitions common to all supported networks...
# option domain-name "example.org"; //這行要註解掉
# option domain-name-servers ns1.example.org, ns2.example.org; //這行要註解掉

# default-lease-time 600; //這行要註解掉
# max-lease-time 7200; //這行要註解掉

# A slightly different configuration for an internal subnet. //加入下面設定
subnet 192.168.10.0 netmask 255.255.255.0 {
  range 192.168.10.100 192.168.10.200; //IP 分配的範圍
  option domain-name-servers 168.95.192.1, 168.95.1.1; //這邊的 DNS 要看你的 ISP
  option domain-name "belldandy.org";
  option routers 192.168.10.254; //要和 eth1 的位垃相同 且不能在分配範圍
  option broadcast-address 192.168.10.255; //廣播位址 通常用最後一個
  default-lease-time 600;
  max-lease-time 7200;
  host vmbell { //設主機名稱 較容易辨識(這邊是發給機器固定的 ip 用的)
    hardware ethernet 00:0c:29:a3:4a:fd; //網路卡的 MAC
    fixed-address 192.168.10.x; //要設定的 ip (建議別設自動分配的範圍)
  }
}

/etc/init.d/dhcp3-server start //啟動 dhcp3-server
vim /var/lib/dhcp3/dhcpd.leases //紀錄發了哪些 ip

上面的操作都正確執行後
執行 pppoeconf 設定連線
然後安裝 Firestarter 來分享頻寬(圖形介面很方便)

TrueCrypt 7.0a 在 Debian 5.0.7 下的安裝方法

2010-12-07T11:31:00.002+09:00

TrueCrypt 7.0a 在 Ubuntu(10.10) 下直接安裝完就可以使用
但是在 Debian(5.0.7) 下安裝時會少 2 個套件
這時手動安裝就好

System -> Administration -> Syanaptic Package Manager
Search "fuse-utils"
Mark for Installation "fuse-utils"

Search "cryptsetup"
Mark for Installation "cryptsetup"

裝好這 2 個就沒問題了
但是如果你的加密磁區有 NTFS 格式的
還要加裝下面這個

Search "ntfs-3g"
Mark for Installation "ntfs-3g"

另外
非 root 登入的話
載入加密分割區似乎會有權限不足的問題(輸入 root 密碼還是不行)
在 Terminal 下
使用 su 取得管理員權限(需密碼)
truecrypt & (背景執行)
jobs -l (查詢背景執行的程式)
這樣就不會遇到上面的問題
只是要讀寫加密磁區的程式也必需從這邊執行
不然也是會遇到權限不足的問題

MSN Messenger 開啟被關閉的 Link 的方法

2010-11-29T02:48:00.004+09:00

MSN Messenger 中的連結被微軟改成不能直接點
這樣挺麻煩的
不過已經有修改的辦法
一樣提供 UltraEdit 的 Scripts

//UltraEdit設定
UltraEdit.activeDocument.findReplace.replaceAll = true;
UltraEdit.activeDocument.findReplace.searchAscii = true;

//msnmsgr.exe
UltraEdit.activeDocument.findReplace.replace("hotlinks", "fixlinks");

沒有 UltraEdit 的話
用 HEX 編輯器
尋找 hotlinks
改成 fixlinks (字元數一樣即可不限定一定要改這樣)
這樣也可以

下面這個是移除廣告的 Scripts
只適用 Windows Live Messenger 2009 (Build 14.0.8117.416) 此版本

//UltraEdit設定
UltraEdit.activeDocument.findReplace.replaceAll = true;
UltraEdit.activeDocument.findReplace.searchAscii = false;

//msgsres.dll
UltraEdit.activeDocument.findReplace.replace("0200020802000203", "04FFFFFFFD07000B");

參考這篇:http://heartfullmoon.blogspot.com/2010/06/windows-live-messenger.html

RO 下雪效果移除 + 使用自訂 DATAX 檔

2010-11-24T14:30:00.007+09:00

下雪效果蠻 LAG 的(單視窗是沒差問題是開多視窗)
所以就寫了這篇教學

主程式修改的部份(UltraEdit 的 Scripts)

//UltraEdit設定
UltraEdit.activeDocument.findReplace.replaceAll = true;
UltraEdit.activeDocument.findReplace.searchAscii = true;

//etcinfo(下雪效果移除的部份)
UltraEdit.activeDocument.findReplace.replace("etcinfo.txt", "etcinfo.fix");

//使用自訂 DATAX 檔(用不到的話 這邊請刪除)
UltraEdit.activeDocument.findReplace.replace("event.grf", "datax.grf");

官方原始的設定(2010/11/24 從 data.grf 中解出的 etcinfo.txt)

loadingscreen#
4#
weather#prontera.rsw#snow#
weather#izlude.rsw#snow#
weather#geffen.rsw#snow#
weather#aldebaran.rsw#snow#
weather#alberta.rsw#snow#
weather#payon.rsw#snow#
weather#yuno.rsw#snow#
weather#lighthalzen.rsw#snow#
weather#hugel.rsw#snow#
event#1#
//file end

weather 的部份整行刪除就不會有下雪效果(注意一下別誤刪其它東西)
刪除完後把檔案儲存成 etcinfo.fix
然後放在 RO 目錄下的 DATA 目錄裡
再配合上面的主程式修改就可以把下雪效果拿掉了

修改好的是下面這樣(etcinfo.fix)

loadingscreen#
4#
event#1#
//file end

直接複制這邊存成 etcinfo.fix 也可以

RagAddress(ini&教學)

2010-10-21T17:15:00.033+09:00

[2011/01/28 Update]
RagAddress.ini(3017 2011-01-25bRagexe.rgz)
AutoImo 作者網頁 : (網頁似乎移除了)http://hide.magical.gr.jp/autoimo/index16.html

[Patch]
Number=3017

[RoName]
WindowCaption=Ragnarok
WindowClass=Ragnarok

[Ragexe]
Size=3825786

[Address]
CharName=00848AE4
Zeny=008469D8
BaseExp=00846930
BaseExpNext=0084693C
JobExp=008469EC
JobExpNext=008469E8
Weight=008469F0
WeightMax=008469E4
BaseLv=00846934
JobLv=00846940
HPIndex=008483CC
MaxHPTable=00848410

RagAddress.ini 搜尋教學
使用 W32DASM "嗶"
就可以得到下列的組合語言程式碼
然後利用關鍵字找相關位址
Change Log:
[2011/01/05 Update]2011/01/05 更新後 HP部份的關鍵字會有2組由上往下找第2組才是我們要的
[2011/01/28 Update]2011/01/28 更新後 HPIndex MaxHPTable 關鍵字變更

//使用2010-10-15aRagexe
//CharName=
//關鍵字:mov dl, byte ptr [ecx+eax+00

* Referenced by a CALL at Addresses:
|:004622DE   , :00462701   , :00463BE3   , :0046C66D   , :0046C927   ,  
|:0046CA1F   , :0048BE46   , :0048C911   , :0048CAA1   , :00494527   ,  
|:00494566   , :0049597F   , :0049F5CE   , :004A45A5   , :004AD0BA      
|:004ADA4F   , :004C5EAB   , :004D344B   , :004D3484   , :004F0539   ,  
|:004F0DEC   , :004F127D   , :004F13C3   , :0050DE0D   , :005ACF09   ,  
|:005CB333   , :005CB602   , :005CBABF   , :005CBB18   , :005CBD36      
|:005CBF1A   , :005CC0F6   , :005CC2FB   , :005CFD7E   , :005D685E   ,  
|:005D6CF3   , :005DCA3D   , :005DD01A   , :005DD1BD   , :005DF5D2   ,  
|:005DF5FC   , :005DF626   , :005DF66F   , :005DF699   , :005DF6C3      
|:005DF796   , :005DF7BD   , :005DF7E4   , :005DF851   , :005DF878   ,  
|:005DF89F   , :005E050A   , :005E4785   , :005E4F5B   , :005E51A6   ,  
|:005E7D33   , :005E7D78   , :005E8E05   , :005EECC2   , :00639E48      
| 00
:006F0FC0 53                      push ebx :
:006F0FC1 56                      push esi :
:006F0FC2 57                      push edi :
:006F0FC3 8DB15C0F0000            lea esi, dword ptr [ecx+00000F5C] 
:006F0FC9 B910000000              mov ecx, 00000010 
:006F0FCE BFB4B68400              mov edi, 0084B6B4 
:006F0FD3 F3                      repz d
:006F0FD4 A5                      movsd 
:006F0FD5 8B0DDCF47900            mov ecx, dword ptr [0079F4DC] 
:006F0FDB 33C0                    xor eax, eax d
:006F0FDD 81E9B4B68400            sub ecx, 0084B6B4 

* Referenced by a (U)nconditional or (C)onditional Jump at Address: 
|:006F0FFC(C) y 
| 00
:006F0FE3 8A9401B4B68400          mov dl, byte ptr [ecx+eax+0084B6B4]   //CharName=
:006F0FEA 8A98B4B68400            mov bl, byte ptr [eax+0084B6B4] B4
:006F0FF0 32DA                    xor bl, dl
:006F0FF2 8898B4B68400            mov byte ptr [eax+0084B6B4], bl B4
:006F0FF8 40                      inc eax  p
:006F0FF9 83F840                  cmp eax, 00000040 
:006F0FFC 72E5                    jb 006F0FE3 00
:006F0FFE 5F                      pop edi FE
:006F0FFF 5E                      pop esi FE
:006F1000 B8B4B68400              mov eax, 0084B6B4 
:006F1005 5B                      pop ebx  0
:006F1006 C3                      ret eb


//Zeny=
//BaseExp=
//BaseExpNext=
//JobExp=
//JobExpNext=
//關鍵字:* Possible StringData Ref from Data Obj ->"%d : %d/%d More : %d"

* Possible StringData Ref from Data Obj ->"%d : %d/%d More : %d"
                                  | 
:005DA47A 68483E7900              push 00793E48 
:005DA47F 50                      push eax 3
:005DA480 E8B3101400              call 0071B538 
:005DA485 83C418                  add esp, 00000018 
:005DA488 8D8D00FFFFFF            lea ecx, dword ptr [ebp+FFFFFF00] 
:005DA48E 6A00                    push 00000000 
:005DA490 6A00                    push 00000000 
:005DA492 68F51EF500              push 00F51EF5 
:005DA497 51                      push ecx 1
:005DA498 6A01                    push 00000001 
:005DA49A B938337E00              mov ecx, 007E3338 
:005DA49F E8FC2CF3FF              call 0050D1A0 
:005DA4A4 5F                      pop edi 0D

* Referenced by a (U)nconditional or (C)onditional Jump at Addresses:   
|:005DA44B(C), :005DA45C(C), :005DA460(C) di
| 00
:005DA4A5 8B5304                  mov edx, dword ptr [ebx+04] re
:005DA4A8 B988828400              mov ecx, 00848288 
:005DA4AD 89153C9D8400            mov dword ptr [00849D3C], edx //BaseExp=
:005DA4B3 E878E60F00              call 006D8B30 
:005DA4B8 5E                      pop esi D8
:005DA4B9 5B                      pop ebx D8
:005DA4BA 8BE5                    mov esp, ebp  
:005DA4BC 5D                      pop ebp  e
:005DA4BD C20400                  ret 0004 e


:005DA4C0 8B4304                  mov eax, dword ptr [ebx+04] x 
:005DA4C3 B988828400              mov ecx, 00848288 
:005DA4C8 A3F89D8400              mov dword ptr [00849DF8], eax //JobExp=
:005DA4CD E85EE60F00              call 006D8B30 
:005DA4D2 5B                      pop ebx D8
:005DA4D3 8BE5                    mov esp, ebp  
:005DA4D5 5D                      pop ebp  e
:005DA4D6 C20400                  ret 0004 e


:005DA4D9 8B8110010000            mov eax, dword ptr [ecx+00000110] 
:005DA4DF 85C0                    test eax, eax 
:005DA4E1 7414                    je 005DA4F7 x 
:005DA4E3 C7811001000000000000    mov dword ptr [ebx+00000110], 00000000
:005DA4ED B988828400              mov ecx, 00848288 
:005DA4F2 E8B96A0F00              call 006D0FB0 

* Referenced by a (U)nconditional or (C)onditional Jump at Address: 
|:005DA4E1(C) y 
| 00
:005DA4F7 8B4B04                  mov ecx, dword ptr [ebx+04] re
:005DA4FA 890DE49D8400            mov dword ptr [00849DE4], ecx //Zeny=
:005DA500 B988828400              mov ecx, 00848288 
:005DA505 E826E60F00              call 006D8B30 
:005DA50A 5B                      pop ebx D8
:005DA50B 8BE5                    mov esp, ebp  
:005DA50D 5D                      pop ebp  e
:005DA50E C20400                  ret 0004 e


:005DA511 8B5304                  mov edx, dword ptr [ebx+04] x 
:005DA514 B988828400              mov ecx, 00848288 
:005DA519 8915489D8400            mov dword ptr [00849D48], edx //BaseExpNext=
:005DA51F E80CE60F00              call 006D8B30 
:005DA524 5B                      pop ebx D8
:005DA525 8BE5                    mov esp, ebp  
:005DA527 5D                      pop ebp  e
:005DA528 C20400                  ret 0004 e


:005DA52B 8B4304                  mov eax, dword ptr [ebx+04] x 
:005DA52E B988828400              mov ecx, 00848288 
:005DA533 A3F49D8400              mov dword ptr [00849DF4], eax //JobExpNext=
:005DA538 E8F3E50F00              call 006D8B30 


//Weight=
//WeightMax=
//關鍵字:* Possible StringData Ref from Data Obj ->"Weight %d%%" 

* Referenced by a (U)nconditional or (C)onditional Jump at Address: 
|:0046D5D5(C) y 
| 00
:0046D5F7 C3                      ret C)
:0046D5F8 90                      nop C)
:0046D5F9 90                      nop C)
:0046D5FA 90                      nop C)
:0046D5FB 90                      nop C)
:0046D5FC 90                      nop C)
:0046D5FD 90                      nop C)
:0046D5FE 90                      nop C)
:0046D5FF 90                      nop C)
:0046D600 55                      push ebp i
:0046D601 8BEC                    mov ebp, esp n
:0046D603 83EC40                  sub esp, 00000040 
:0046D606 56                      push esi 0
:0046D607 57                      push edi 0
:0046D608 8BF9                    mov edi, ecx 0
:0046D60A 8B4720                  mov eax, dword ptr [edi+20] re
:0046D60D 8B4F64                  mov ecx, dword ptr [edi+64] re
:0046D610 3BC1                    cmp eax, ecx d
:0046D612 0F858F000000            jne 0046D6A7 d
:0046D618 8D70EC                  lea esi, dword ptr [eax-14] re
:0046D61B 8B4508                  mov eax, dword ptr [ebp+08] re
:0046D61E 85C0                    test eax, eax 
:0046D620 0F8C81000000            jl 0046D6A7 x 
:0046D626 83F864                  cmp eax, 00000064 
:0046D629 7D7C                    jge 0046D6A7 0
:0046D62B 8B450C                  mov eax, dword ptr [ebp+0C] re
:0046D62E 3BC6                    cmp eax, esi d
:0046D630 7C75                    jl 0046D6A7  d
:0046D632 8D4E14                  lea ecx, dword ptr [esi+14] re
:0046D635 3BC1                    cmp eax, ecx d
:0046D637 7D6E                    jge 0046D6A7 d
:0046D639 8B0DF09D8400            mov ecx, dword ptr [00849DF0] //WeightMax=
:0046D63F 85C9                    test ecx, ecx 
:0046D641 750C                    jne 0046D64F  
:0046D643 51                      push ecx 6
:0046D644 8D55C0                  lea edx, dword ptr [ebp-40] ] 

* Possible StringData Ref from Data Obj ->"Weight %d%%" 
                                  | 
:0046D647 68781F7700              push 00771F78 
:0046D64C 52                      push edx 1
:0046D64D EB1B                    jmp 0046D66A  

* Referenced by a (U)nconditional or (C)onditional Jump at Address: 
|:0046D641(C) y 
| 00
:0046D64F A1FC9D8400              mov eax, dword ptr [00849DFC] //Weight=
:0046D654 8D0480                  lea eax, dword ptr [eax+4*eax]
:0046D657 8D0480                  lea eax, dword ptr [eax+4*eax]
:0046D65A C1E002                  shl eax, 02 rd
:0046D65D 99                      cdq ea
:0046D65E F7F9                    idiv ecx 0
:0046D660 50                      push eax 0
:0046D661 8D45C0                  lea eax, dword ptr [ebp-40] x]

* Possible StringData Ref from Data Obj ->"Weight %d%%" 
                                  | 
:0046D664 68781F7700              push 00771F78 
:0046D669 50                      push eax 1


//BaseLv=
//JobLv=
//關鍵字:* Possible StringData Ref from Data Obj ->"Base Lv. %d" 
//關鍵字:* Possible StringData Ref from Data Obj ->"Job Lv. %d"  

* Referenced by a (U)nconditional or (C)onditional Jump at Address: 
|:0046D2F8(C) y 
| 00
:0046D30E 8B15409D8400            mov edx, dword ptr [00849D40] //BaseLv=
:0046D314 8D8564FFFFFF            lea eax, dword ptr [ebp+FFFFFF64] 
:0046D31A 52                      push edx d

* Possible StringData Ref from Data Obj ->"Base Lv. %d" 

* Referenced by a (U)nconditional or (C)onditional Jump at Address: 
|:0046D352(C) y 
| 00
:0046D368 8B154C9D8400            mov edx, dword ptr [00849D4C] //JobLv=
:0046D36E 8D8564FFFFFF            lea eax, dword ptr [ebp+FFFFFF64] 
:0046D374 52                      push edx d

* Possible StringData Ref from Data Obj ->"Job Lv. %d"  


//HPIndex=
//MaxHPTable=
//2011/01/28 Update
//關鍵字:mov eax, dword ptr [esi+00000E6A] 

* Referenced by a (U)nconditional or (C)onditional Jump at Address: 
|:0061CDB3(C) y 
| 00
:0061CDC8 8D14C500000000          lea edx, dword ptr [8*eax+00000000] ] 
:0061CDCF 2BD0                    sub edx, eax d
:0061CDD1 33C0                    xor eax, eax d
:0061CDD3 C1E204                  shl edx, 04  d
:0061CDD6 8A841AAC0E0000          mov al, byte ptr [edx+ebx+00000EAC] ] 
:0061CDDD 8D341A                  lea esi, dword ptr [edx+ebx] 0
:0061CDE0 A358968400              mov dword ptr [00849658], eax 
:0061CDE5 0FBF8E780E0000          movsx ecx, word ptr [esi+00000E78]
:0061CDEC 890D389D8400            mov dword ptr [00849D38], ecx 
:0061CDF2 B988828400              mov ecx, 00848288 
:0061CDF7 E834BD0B00              call 006D8B30 
:0061CDFC B988828400              mov ecx, 00848288 
:0061CE01 E88ABC0B00              call 006D8A90 
:0061CE06 8B96400E0000            mov edx, dword ptr [esi+00000E40] 
:0061CE0C B988828400              mov ecx, 00848288 
:0061CE11 89152C9D8400            mov dword ptr [00849D2C], edx 
:0061CE17 0FBF86760E0000          movsx eax, word ptr [esi+00000E76]
:0061CE1E A3E89D8400              mov dword ptr [00849DE8], eax 
:0061CE23 E808BD0B00              call 006D8B30 
:0061CE28 0FBF8E7E0E0000          movsx ecx, word ptr [esi+00000E7E]
:0061CE2F 890D409D8400            mov dword ptr [00849D40], ecx 
:0061CE35 B988828400              mov ecx, 00848288 
:0061CE3A E8F1BC0B00              call 006D8B30 
:0061CE3F 0FBF96800E0000          movsx edx, word ptr [esi+00000E80]
:0061CE46 B988828400              mov ecx, 00848288 
:0061CE4B 8915509D8400            mov dword ptr [00849D50], edx 
:0061CE51 E8DABC0B00              call 006D8B30 
:0061CE56 0FBF86680E0000          movsx eax, word ptr [esi+00000E68]
:0061CE5D B988828400              mov ecx, 00848288 
:0061CE62 A3449D8400              mov dword ptr [00849D44], eax 
:0061CE67 E8C4BC0B00              call 006D8B30 
:0061CE6C 33C9                    xor ecx, ecx  
:0061CE6E 8A8EA60E0000            mov cl, byte ptr [esi+00000EA6] 8]
:0061CE74 890D789D8400            mov dword ptr [00849D78], ecx 
:0061CE7A B988828400              mov ecx, 00848288 
:0061CE7F E8ACBC0B00              call 006D8B30 
:0061CE84 33D2                    xor edx, edx  
:0061CE86 B988828400              mov ecx, 00848288 
:0061CE8B 8A96A70E0000            mov dl, byte ptr [esi+00000EA7] 8]
:0061CE91 89157C9D8400            mov dword ptr [00849D7C], edx 
:0061CE97 E894BC0B00              call 006D8B30 
:0061CE9C 33C0                    xor eax, eax  
:0061CE9E B988828400              mov ecx, 00848288 
:0061CEA3 8A86A80E0000            mov al, byte ptr [esi+00000EA8] 8]
:0061CEA9 A3809D8400              mov dword ptr [00849D80], eax 
:0061CEAE E87DBC0B00              call 006D8B30 
:0061CEB3 33C9                    xor ecx, ecx  
:0061CEB5 8A8EA90E0000            mov cl, byte ptr [esi+00000EA9] 8]
:0061CEBB 890D849D8400            mov dword ptr [00849D84], ecx 
:0061CEC1 B988828400              mov ecx, 00848288 
:0061CEC6 E865BC0B00              call 006D8B30 
:0061CECB 33D2                    xor edx, edx  
:0061CECD B988828400              mov ecx, 00848288 
:0061CED2 8A96AA0E0000            mov dl, byte ptr [esi+00000EAA] 8]
:0061CED8 8915889D8400            mov dword ptr [00849D88], edx 
:0061CEDE E84DBC0B00              call 006D8B30 
:0061CEE3 33C0                    xor eax, eax  
:0061CEE5 B988828400              mov ecx, 00848288 
:0061CEEA 8A86AB0E0000            mov al, byte ptr [esi+00000EAB] 8]
:0061CEF0 A38C9D8400              mov dword ptr [00849D8C], eax 
:0061CEF5 E836BC0B00              call 006D8B30 
:0061CEFA 8B8E440E0000            mov ecx, dword ptr [esi+00000E44] 
:0061CF00 890D3C9D8400            mov dword ptr [00849D3C], ecx 
:0061CF06 B988828400              mov ecx, 00848288 
:0061CF0B E820BC0B00              call 006D8B30 
:0061CF10 8B15BCAF8400            mov edx, dword ptr [0084AFBC] 
:0061CF16 8B866A0E0000            mov eax, dword ptr [esi+00000E6A] 
:0061CF1C 8B0C95C8AF8400          mov ecx, dword ptr [4*edx+0084AFC8] ] 
:0061CF23 51                      push ecx d
:0061CF24 50                      push eax d
:0061CF25 B988828400              mov ecx, 00848288 
:0061CF2A E851990C00              call 006E6880 
:0061CF2F 8B0DB4AF8400            mov ecx, dword ptr [0084AFB4] //HPIndex=
:0061CF35 3B048D58B08400          cmp eax, dword ptr [4*ecx+0084B058] ] 
:0061CF3C 7417                    je 0061CF55 rd
:0061CF3E 89048D58B08400          mov dword ptr [4*ecx+0084B058], eax ] 
:0061CF45 B988828400              mov ecx, 00848288 
:0061CF4A E881BB0B00              call 006D8AD0 
:0061CF4F 8B0DB4AF8400            mov ecx, dword ptr [0084AFB4] //HPIndex=

* Referenced by a (U)nconditional or (C)onditional Jump at Address: 
|:0061CF3C(C) y 
| 00
:0061CF55 8B15BCAF8400            mov edx, dword ptr [0084AFBC] 
:0061CF5B 8B0C8D58B08400          mov ecx, dword ptr [4*ecx+0084B058] ] 
:0061CF62 8B0495C8AF8400          mov eax, dword ptr [4*edx+0084AFC8] ] 
:0061CF69 50                      push eax d
:0061CF6A 51                      push ecx d
:0061CF6B B988828400              mov ecx, 00848288 
:0061CF70 E86B9A0C00              call 006E69E0 
:0061CF75 8B15BCAF8400            mov edx, dword ptr [0084AFBC] 
:0061CF7B A308B28400              mov dword ptr [0084B208], eax 
:0061CF80 8B866E0E0000            mov eax, dword ptr [esi+00000E6E] 
:0061CF86 8B0C95C8AF8400          mov ecx, dword ptr [4*edx+0084AFC8] ] 
:0061CF8D 51                      push ecx d
:0061CF8E 50                      push eax d
:0061CF8F B988828400              mov ecx, 00848288 
:0061CF94 E8E7980C00              call 006E6880 
:0061CF99 8B0DC0AF8400            mov ecx, dword ptr [0084AFC0] 
:0061CF9F 3B048DF8AF8400          cmp eax, dword ptr [4*ecx+0084AFF8] ] //MaxHPTable=
:0061CFA6 7417                    je 0061CFBF rd
:0061CFA8 89048DF8AF8400          mov dword ptr [4*ecx+0084AFF8], eax ] //MaxHPTable=
:0061CFAF B988828400              mov ecx, 00848288 
:0061CFB4 E817BB0B00              call 006D8AD0 
:0061CFB9 8B0DC0AF8400            mov ecx, dword ptr [0084AFC0]

Linux Sources.list 設定

2010-10-14T21:19:00.007+09:00

CentOS:
似乎無解一定得上網

Debian:

vim /etc/apt/sources.list

Ubuntu:

sudo vi /etc/apt/sources.list

另外
Ubuntu 還可以用下列方式加入
Applications -> Ubuntu Software Center
Edit -> Software Sources...
Installable from CD-ROM/DVD
勾選即可

UltraEdit Scripts (Ragexe 修改用)

2010-10-07T22:08:00.017+09:00

Ragexe.exe 版本:3002 2011-01-11aRagexe.rgz[2011/01/12 Update]
Feature:
1.雙視窗(內建拿掉了)
2.視野放寬
3.視角&不雅文字限制解除
4.特效關閉
5.未鑑定裝備顯示

//UltraEdit設定
UltraEdit.activeDocument.findReplace.replaceAll = true;
UltraEdit.activeDocument.findReplace.searchAscii = true;

//視角&不雅文字限制解除
UltraEdit.activeDocument.findReplace.replace("manner.txt", "manner.fix");
UltraEdit.activeDocument.findReplace.replace("indoorrswtable.txt", "indoorrswtable.fix");
UltraEdit.activeDocument.findReplace.replace("viewpointtable.txt", "viewpointtable.fix");

//UltraEdit設定
UltraEdit.activeDocument.findReplace.searchAscii = false;

//視野放寬
UltraEdit.activeDocument.findReplace.replace("000066430000C843", "0000664300000044");

//特效關閉
UltraEdit.activeDocument.findReplace.replace("4D6574656F7225642E737472", "000000000000000000000000");
UltraEdit.activeDocument.findReplace.replace("4C6F72642E737472", "0000000000000000");
UltraEdit.activeDocument.findReplace.replace("53746F726D477573742E737472", "00000000000000000000000000");
UltraEdit.activeDocument.findReplace.replace("437261736845617274682E737472", "0000000000000000000000000000");

//未鑑定裝備顯示
UltraEdit.activeDocument.findReplace.replace("74787400004E756D326974656D446573635461626C652E747874000000", "747874000049644E756D326974656D446573635461626C652E74787400");
UltraEdit.activeDocument.findReplace.replace("4E756D324974656D446973706C61794E616D655461626C652E74787400000000", "49644E756D324974656D446973706C61794E616D655461626C652E7478740000");

Debian 快速設定流程

2010-10-06T19:39:00.027+09:00

[2011/02/13 Update]

//Terminal
apt-cdrom add -m
apt-get dist-upgrade
visudo //sudo
vim /etc/sudoers
vim /etc/hostname
vim /etc/hosts


//System -> Administration -> Add/Remove Applications
Search "pppoe"
ADSL/PPPOE configuration
pppoeconf //Terminal
pon dsl-provider //Terminal
poff //Terminal


//System -> Administration -> Syanaptic Package Manager
Search "amsn"
Mark for Installation "amsn"

Search "ia32-libs"
Mark for Installation "ia32-libs"

Search "locales"
locales -> Package -> Configure...
dpkg-reconfigure locales //Terminal

Search "ntfs-3g" //NTFS
Mark for Installation "ntfs-3g"

Search "scim"
Mark for Installation "scim-modules-table"
im-switch -s scim //Terminal

Search "vim"
Mark for Installation "vim"

Search "wine"
Mark for Installation "wine"


Depends:
 //Rainlendar
Search "libcurl3"
Mark for Installation "libcurl3"
Search "tofrodos"
Mark for Installation "tofrodos"

 //TrueCrypt
Search "cryptsetup"
Mark for Installation "cryptsetup"
Search "fuse-utils"
Mark for Installation "fuse-utils"

//VirtualBox
Search "libqt4-opengl"
Mark for Installation "libqt4-opengl"

//wine
Search "lib32nss-mdns"
Mark for Installation "lib32nss-mdns"


Others:
//Flash Player
cp libflashplayer.so /usr/lib/iceweasel/plugins
cp libflashplayer.so /opt/firefox/plugins

//Java
Search "equivs" //java-common
Mark for Installation "equivs"
Search "unixodbc" //sun-java6-bin
Mark for Installation "unixodbc"
Search "ia32-libs" //ia32-sun-java6-bin
Mark for Installation "ia32-libs"

dpkg -i *.deb
ia32-sun-java6-bin
java-common
sun-java6-bin
sun-java6-jre
sun-java6-plugin


Services:
//DHCP
Search "dhcp3-server"
Mark for Installation "dhcp3-server"

vim /etc/network/interfaces
auto eth0
iface eth0 inet static
address 192.168.10.50
netmask 255.255.255.0

auto eth1
iface eth1 inet static
address 192.168.10.254
netmask 255.255.255.0

/etc/init.d/networking restart

vim /etc/default/dhcp3-server
INTERFACES="eth1"

vim /etc/dhcp3/dhcpd.conf
# option definitions common to all supported networks...
# option domain-name "example.org";
# option domain-name-servers ns1.example.org, ns2.example.org;

# default-lease-time 600;
# max-lease-time 7200;

# A slightly different configuration for an internal subnet.
subnet 192.168.10.0 netmask 255.255.255.0 {
  range 192.168.10.100 192.168.10.200;
  option domain-name-servers 168.95.192.1, 168.95.1.1;
  option domain-name "belldandy.org";
  option routers 192.168.10.254;
  option broadcast-address 192.168.10.255;
  default-lease-time 600;
  max-lease-time 7200;
  host vm-win7s {
    hardware ethernet 00:0c:29:61:6c:9f;
    fixed-address 192.168.10.57;
  }
  host vm-ws2008r2s {
    hardware ethernet 00:0c:29:63:c8:a8;
    fixed-address 192.168.10.58;
  }
  host vm-win7 {
    hardware ethernet 00:0c:29:9b:9c:4c;
    deny booting;
  }
  host vm-ws2008r2 {
    hardware ethernet 00:0c:29:c1:fe:cc;
    deny booting;
  }
}

/etc/init.d/dhcp3-server restart
vim /var/lib/dhcp3/dhcpd.leases

//SSH
Search "ssh"
Mark for Installation "ssh"

vim /etc/ssh/sshd_config
Port 22
PermitRootLogin no

vim /etc/hosts.allow
sshd:192.168.0.0

vim /etc/hosts.deny
sshd:all

/etc/init.d/ssh restart

參考資料:
http://wiki.debian.org.hk/w/Connect_Internet_with_PPPoEConf
http://wiki.debian.org.hk/w/Setup_DHCP_server
http://nabeko-notebook.blogspot.com/2007/08/dhcp-server.html

RO 官方(新幹線) Renewal 版實裝設定備份&滑鼠移出設定

2010-10-05T21:49:00.002+09:00

基本上一般的設定都放在 RO 目錄下的 DATA 子目錄
ChatWndInfo_U.lua (這個是你對話欄的設定)
OptionInfo.lua (遊戲中一些設定的儲存是用這個)
UserKeys.lua (這個是你快速鍵的設定 UserKeys_s.lua 遊星是用這個)

滑鼠移出的話
經過測試
RO_MF_1.98.zip
RO_MF_2.089.zip
兩者都能使用
不過 2.089 使用上得先執行較為不便
故使用 1.98 比較理想
不過使用 1.98 要有點小技巧
首先打開 1.98 的壓縮檔
然後只解壓出 dinput.dll
然後把它複制成 dinput2.dll
然後把這 2 個檔案放到 RO 目錄下即可
(遊星的話要把內附的 DINPUT.DLL RO_MF.BIN RO_MF.INI刪除 1.98版的較新)

滑鼠移出的官網在這邊 http://www.na.rim.or.jp/~nuts/ragnarok/
可以到這下載

Windows 視窗整理工具組合

2010-09-21T16:00:00.003+09:00

雖然 1920*1080 的解析度來說
用 Win + Right(Left) 來切成2個視窗就很方便
不過對於小工具之類的程式來說
畫面會太大
找了蠻久終於弄出比較好搭配的組合

使用下面這三套小軟體
reSizer(官網 : http://zestant.googlepages.com/resizer)
Sizer(官網 : http://www.brianapps.net/sizer/)

Fences(官網 : http://www.stardock.com/)

像一些小工具軟體視窗比較小可以用 Sizer 來調整它的大小(可以把類似的調成相同)

然後用 reSizer 來調整視窗位置(因為 Windows 7 的沒有置中的功能)

最後再把桌面的圖示用 Fences 分類整理
這樣就看起來很清爽

另外
reSizer 還可以用來管理 Windows 7 的便利貼
讓它看起來比較整齊
不然東貼一塊西貼一塊看起來會很亂

參考資料:
http://www.tomshardware.com/picturestory/540-windows-7-free-download-application.html
湯姆大叔的 Windows 7 最常被下載的 20 個工具

題外話
Linux 下不知道有沒有類似的工具可以使用

Debian 調整+安裝常用軟體

2010-09-16T08:41:00.007+09:00

Sazanami Gothic Japanese TrueType font
Sazanami Mincho Japanese TrueType font
安裝這2個日文字型(比較美觀)
一樣用 Synaptic Package Manager
然後用 Search 輸入 ttf-sazanami
安裝 ttf-sazanami-gothic 和 ttf-sazanami-mincho

安裝 amsn 代替 msn 使用
一樣用 Synaptic Package Manager
然後用 Search 輸入 amsn
安裝 amsn

安裝 wine 來執行某些 Windows 下的程式
一樣用 Synaptic Package Manager
然後用 Search 輸入 wine
安裝 wine
(裝完後執行時還是少 lib32nss-mdns 用 Search 找 lib32nss-mdns 手動安裝即可)

安裝防火牆
http://packages.debian.org/lenny/firestarter
先這邊下載 DEB 檔
也可以連線後用 Add/Remove Applications 安裝(Search "firestarter")
然後在 Terminal 下
輸入 dpkg -i firestarter_1.0.3-6_amd64.deb(看下載的版本檔名)
即可安裝
可輸入 dpkg --help 查詢該指令的詳細說明
裝完 Firestarter 後
Preferences -> Firewall -> Network Settings
設定一下網路卡(對內外)
不然會不能連線
另外 Policy 裡的 Outbound traffic policy
記得選 Permissive by default , blacklist traffic

設定 scim 為預設的輸入法
im-switch -s scim
im-switch -h (這個可以看指令說明)
按 ctrl+space 切換中英文
按 ctrl+shift 切換輸入法

參考資料:
http://pcnoproblem.twbbs.org/ubuntu-firestarter/

Debian 5.0.6 語系支援設定&DSL連線設定

2010-09-11T16:34:00.002+09:00

System -> Administration -> Syanaptic Package Manager

按工具列的 Search 輸入 locales

找到 locales 後先點選它然後選 Package 裡的 Configure...

這樣就可以設定想要增加的語系

這邊是安裝顯示用的中文語系

一樣按 Search 輸入 ttf-arphic

這邊我是安裝

"AR PL UKai" Chinese Unicode TrueType font collection Kaiti style

"AR PL UMing" Chinese Unicode TrueType font collection Mingti style

這2個中文字型

(按右鍵選 Mark for Installation 之後再按工具列的 Apply就會安裝)

一樣按 Search 輸入 scim

然後選擇安裝 scim-modules-table

它會把相關的一起安裝

這邊裝這個是因為我的嘸蝦米是 scim 版的

所以需要安裝這個

這邊是裝 DSL連線需要的東西

System -> Administration -> Add/Remove Applications

Search 裡輸入 pppoe

然後安裝這個 ADSL/PPPOE configuration

安裝完成後

執行 Applications -> System Tools -> ADSL/PPPOE configuration

就可以設定連線

參考資料:

http://wiki.debian.org.hk/w/Make_Debian_support_Chinese

CentOS 5.5 語系支援設定&DSL連線設定

2010-09-11T16:24:00.002+09:00

Applications -> Add/Remove Software

左邊選 Languages 右邊就可以選想支援的語系

System -> Administration -> Network

這邊按 New 設定網路連線

參考資料:

http://www.ps3w.net/modules/psbb/?op=openthr&pos_id=1054

http://www.ps3w.net/modules/psbb/?op=openthr&id=197

Linux (Debian & CentOS) 試用心得

2010-09-09T02:10:00.003+09:00

最近新抓的玩具
Debian(5.0.5) 和 CentOS(5.5)
比較上來說
Debian 比較簡潔
CentOS 功能較多
不過 Debian 的東西似乎比較新(GNOME)
兩邊都試裝了 VMware Workstaion 7.1.1
Debian 可以直接使用
CentOS 需要重開機(而且圖示還有點異常)
目前比較偏向拿 Debian 來做虛擬機器的 Host
其實還有另一個選擇 Ubuntu
不過覺得它太常更新而且裝的東西過多
雖然說 Linux 的更新週期比較長
比較希望不用常常更新就能穩定工作
像 Windows 系列就得常常更新
雖然較易入門
最近開始學 Linux 入門難度其實蠻高的
不過反正慢慢來XD

其實首要解決是是玩遊戲的問題(wine還在研究中)
其它常用軟體就用虛擬機器跑就好了

這張是 Debian

這張是 CentOS

Debian 官網 : http://www.debian.org/

CentOS 官網 : http://www.centos.org/

Avira AntiVir Personal 安裝後小設定(附病毒碼+授權檔下載點)

2010-08-26T20:03:00.003+09:00

這邊先把排程關掉(Enable 別勾選)

然後選不要下載產品升級(Do not download product updates)

最後把病毒碼過期通知也關掉(Show notice if the virus definition file is out of date 別勾選)

http://dl.antivir.de/package/fusebundle/win32/int/vdf_fusebundle.zip

病毒碼可以從這邊手動下載然後自己手動升級(10版手動升級還是會出現廣告 9版似乎不會)

License file for Avira AntiVir Personal : http://dlce.antivir.com/down/windows/hbedv.key

這個是有時授權過期沒自動升級可以自己下載升級

CrystalDiskInfo 3.7.0a 使用感想

2010-08-26T19:52:00.000+09:00

最近找可以開關 APM AAM 的軟體就找到這一套

不過意外的是可以看使用時間

發現 WD 這顆用了 28503 小時

算一算快 1200 天了

而且這顆都跑虛擬機器(BT)比較多

官方網站 : http://crystalmark.info/?lang=en

可以到這邊下載

P 點存入程式(AHK)

2010-08-19T00:10:00.001+09:00

最近 P 點有點多又只能一個一個換
就寫了這個自動換的 AHK

http://www.autohotkey.com/
從這邊下載編譯器才能轉換成執行檔

編譯出來的似乎不支援 Unicode 需注意一下

Pause
Loop
{
 IfWinActive,遊戲星球
 {
  Send {Click}
  Sleep, 1000
  Send {Enter}
  Sleep, 1000
  Send {Down}
  Sleep, 1000
  Send {Enter}
  Sleep, 1000
  Send {Enter}
  Sleep, 1000
  Send {Enter}
  Sleep, 1000
  Send {Enter}
  Sleep, 1000
 }
}
^Home::Pause

RO Skin (R版用)

2010-08-11T22:17:00.000+09:00

最近找了一下 R 版可以用的 Skin
舊版的會有的地方有問題(像第一張圖的素質欄)
雖然這兩個都是寫 R 版可用
第一個素質還是有點問題
所以目前我是用第二個XD

http://www.mukyu-labo.net/ro/skin/mukyu_skin.html (作者網頁)

http://xxxnightmarexxx.client.jp/ (作者網頁)

Unidentified network 網路類型變更教學

2010-07-16T20:20:00.003+09:00

Windows 7 安裝完後區網一直抓不到其它電腦
當然也沒辦法和我妹的 XP 連線
原因是網路無法識別它就會變成 Public network 且無法更改
目前找到兩個方法
一個是變更預設閘道(但是這方法我覺得有些情況不方便有時候要重開機才有效)
另一個就是變更網路類型(Home , Work , Public)

首先
電腦名稱每台要不同
工作群組要設定成一樣的
IP 也要設不同 192.168.X.Y
變更方法:

開啟 Network and Sharing Center

Unidentified network 的類型是 Public network 且無法變更

這時執行 SECPOL.MSC (Local Security Policy)

然後選擇 Security Settings 下面的 Network List Manager Policies

裡面的 Unidentified networks 點兩下

然後把 Location type 改成 Private

把 User permissions 改成 User cannot change location

改完後回去看 Network and Sharing Center

就會變成

這時就可以在看見其它電腦了

像我 Folder Options 裡的 Use Sharing Wizard (Recommended)

是沒有開啟的所以要多設定一個地方

一樣是在 Network and Sharing Center

點左邊的 Change advanced sharing settings

然後選 Home or Work 的部份

最底下的 HomeGroup connections

改選 Use user accounts and passwords to connect to other computers

這樣就可以用帳密進去分享的資料夾

RO 素質職業計算機(R版+3轉)+職業配點備份

2010-07-07T18:42:00.039+09:00

改用 HDMI 線後螢幕黑框問題的解決法(ATI 顯示卡)

2010-07-07T18:29:00.001+09:00

今天網購的新玩具(?)到了之後
就把 DVI 線換掉改用 HDMI 線
結果用 1920*1080 的解析度時
畫面會縮小導致螢幕週圍有一圈黑框
其實這是 ATI CCC 預設值的問題
把它調整一下就可以正常顯示了

解決方法:

首先開啟 CCC

選擇這個頁面

然後左下角的螢幕按右鍵選設定

把 Scaling Options 改成 0% 就可以了

RO (R版素質配點)

2010-06-28T17:47:00.023+09:00

[2011/05/25 Update]
Arc Bishop(JOB50加成值：STR+5、AGI+4、VIT+5、INT+8、DEX+6、LUK+0)
STR 1
AGI 81
VIT 95
INT 82
DEX 84
LUK 100

Sorcerer(JOB50加成值：STR+3、AGI+3、VIT+5、INT+10、DEX+7、LUK+3)
STR 1
AGI 84
VIT 95
INT 120
DEX 83
LUK 1

Minstrel(JOB50加成值：STR+5、AGI+4、VIT+5、INT+8、DEX+6、LUK+0)
STR 1
AGI 81
VIT 95
INT 82
DEX 84
LUK 100

Wanderer(JOB50加成值：STR+2、AGI+8、VIT+5、INT+8、DEX+6、LUK+0)
STR 1
AGI 82
VIT 95
INT 82
DEX 84
LUK 100

Warlock(JOB50加成值：STR+1、AGI+5、VIT+4、INT+11、DEX+6、LUK+1)
STR 1
AGI 82
VIT 96
INT 120
DEX 84
LUK 1

Ranger(JOB50加成值：STR+2、AGI+8、VIT+5、INT+8、DEX+6、LUK+0)
STR 1
AGI 115
VIT 50
INT 1
DEX 110
LUK 100

Shadow Chaser(JOB50加成值：STR+6、AGI+3、VIT+7、INT+5、DEX+3、LUK+5)
STR 1
AGI 82
VIT 93
INT 85
DEX 87
LUK 95

Creator(JOB70加成值：STR+4、AGI+6、VIT+3、INT+7、DEX+14、LUK+11)
STR 1
AGI 1
VIT 57
INT 99
DEX 76
LUK 19

Mechanic(JOB50加成值：STR+6、AGI+3、VIT+7、INT+5、DEX+3、LUK+5)
STR 1
AGI 82
VIT 93
INT 85
DEX 87
LUK 95

Sura(JOB50加成值：STR+6、AGI+7、VIT+5、INT+4、DEX+7、LUK+0)
STR 54
AGI 103
VIT 95
INT 1
DEX 83
LUK 100

AMD 人品測試驅動程式 10.6

2010-06-18T12:52:00.000+09:00

這個月的 AMD 人品測試驅動程式居然月中就出來了(平常都月底)
加了不少新功能(像是支援 FLASH 10.1 和一些有的沒的)
人品這麼好的我當然要測試一下

於是就上了 AMD 官網
它整個下載驅動程式的介面完全改變
我是覺得新介面比較直覺想抓什麼就點什麼
不過似乎寫得不太完善有的選項按了會變舊介面
依照往例抓了這八個檔案

10-6_vista_win7_32-64_sb.exe (vista 和 win7 的南橋驅動 32bit+64bit)
10-6_vista32_win7_32_dd_ccc_enu.exe (vista 和 win7 顯卡+內顯的驅動 32bit 含ccc)
10-6_vista64_win7_64_dd_ccc_enu.exe (vista 和 win7 顯卡+內顯的驅動 64bit 含ccc)
10-6_win7_32-64_ahci.exe (win7 ahci 的驅動 32bit+64bit)
10-6_xp32_dd_ccc_enu.exe (xp 顯卡+內顯的驅動 32bit 含ccc)
10-6_xp32-64_hdmiaudio.exe (xp 的 hdmi 驅動)
10-6_xp32-64_sb.exe (xp 的南橋驅動 32bit+64bit)
10-6_xp64_dd_ccc_enu.exe (xp 顯卡+內顯的驅動 64bit 含ccc)

我自己是用 win7 的部份
xp 是抓給我妹用的(不過預定也要幫她升級 win7 了)

老樣子我裝驅動前還是先插上舊鍵盤
因為 usb 鍵盤老是裝完 sb 的驅動就抓不到
只能 reset
然後照順序開始裝 dd_ccc ahci sb
很神奇的這次裝完 sb
usb 鍵盤還能動也順利的重開機(舊鍵盤白裝了)
裝好後進 win7
這篇所提到的問題 http://heartfullmoon.blogspot.com/2010/04/vmware-usb-arbitration-service.html
VMware USB Arbitration Service 啟動不了的問題居然沒事
平常裝好還要自己去刪掉登陸值才能正常工作
這次的 10.6 還蠻建議裝的

Windows Live Messenger 下載&廣告移除教學

2010-06-10T17:21:00.001+09:00

Windows Live Messenger 下載點(這邊是完整版的)
英文版: http://g.live.com/1rewlive3/en/wlsetup-all.exe
中文版(繁體): http://g.live.com/1rewlive3/zh-cht/wlsetup-all.exe
日文版: http://g.live.com/1rewlive3/ja/wlsetup-all.exe

Windows Live Messenger 2009 (Build 14.0.8117.416) 廣告移除教學

C:\Program Files\Windows Live\Messenger\msgsres.dll
Change:
0200020802000203
To:
04FFFFFFFD07000B

C:\WINDOWS\system32\drivers\etc\hosts
Add:
127.0.0.1 rad.msn.com
127.0.0.1 rad.live.com

需要改2個地方
主程式的部份 (msgsres.dll) 使用HEX編輯器(這邊是移除主程式的廣告視窗)
HOSTS 檔案的部份用一般文書編輯器(這邊是移除對話盒的文字廣告)

NIKON S3000 試拍

2010-06-09T21:32:00.001+09:00

最近買了相機(S3000) 就來拍拍之前買的新 CPU

感覺這台還蠻適合新手上路使用的

不過自從買了這顆 CPU

感覺似乎效能過剩的感覺

一般使用上 CPU 使用率幾乎都不會超過 50%

不過原廠風扇挺吵的

所以我有買 TX3 回來換

VMware BIOS 檔案取得方法

2010-06-04T16:36:00.001+09:00

使用 XN Resource Editor 打開 vmware-vmx.exe

(vmware 程式的目錄找一下例:C:\Program Files (x86)\VMware\VMware Workstation\x64)

6006按右鍵

選 Export Resource

所得到的檔案就是 BIOS 檔案

可以對 BIOS 做修改(加SLIC之類的(謎)

修改後

在 VMware 虛擬機器目錄裡的 *.vmx (要看機器名稱)

加上這行 : bios440.filename="改過後的 BIOS 檔案名稱"

即可以使用改過的 BIOS 開機

Adobe CS4&CS5 關閉升級相關程式

2010-06-02T16:46:00.000+09:00

CS5的升級程式

要禁止執行2個執行檔

C:\Program Files (x86)\Common Files\Adobe\OOBE\PDApp\core\PDapp.exe

這個是升級的主程式

C:\Program Files (x86)\Common Files\Adobe\OOBE\PDApp\UWA\AAM Updates Notifier.exe

這個是工作列提示的程式

CS4的話只要禁止這個就好

C:\Program Files (x86)\Common Files\Adobe\Updater6\Adobe_Updater.exe

其實沒關沒啥差

只是我討厭它自動跳出來

所以就禁止它執行了

REALTEK Driver(High Definition Audio Codecs & Network Interface Controllers)

2010-05-18T15:18:00.001+09:00

Driver_Win7_7018_04202010.zip

Driver_Win7_7017_03232010.zip

Vista_Win7_R248.zip

Vista_Win7_R247.zip

官網下載(http://www.realtek.com.tw/)

AHCI 開啟遇難記T.T

2010-04-30T01:12:00.002+09:00

今天回家後
發現 10.4 的人品測試驅動出來了
就想說來玩看看
然後就照往例抓了
XP(32+64 HDMI SB) 4種驅動
Windows7(32+64+SB) 3種驅動
忽然著魔似的(?
也抓了 Windows7 的 AHCI Driver
然後照著 PTT 的教學把下面的登錄檔改成 0
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\msahci
Start -> 0
改完後才進 BIOS 開 AHCI
開好 AHCI 重開機 Windows7 就死機給我看(?
然後我就讓它修復看看(等了約15分吧)
修好後 AHCI 還是進不去= =
只好改回 IDE 模式
改回去後一切正常偏偏就 RO 一直錯誤不能玩
我就開始灌回 10.3
結果一樣
然後全部移除
重裝了 10.4 的 SB CCC DRIVER
還是不行
該不會要重灌了吧= =
這時候我發現上面那個要改 0 的地方
我好像改成 1 = =
然後我就改 0 給它重開機
它就很順利的抓到 AHCI 裝置
可是還是一樣不能玩 RO
然後我又重抓了 AHCI 的驅動
安裝完後重開
一樣不行
正當我準備放棄
算了今天先別玩 RO 明天來重灌= =
這時想說放個 MP3 聽
結果一放發現 BIG5 的日文沒有顯示
然後直覺想到會不會 C_950.NLS 被 Windows7 修回正常檔了嗎= =
去 WINDOWS\SYSTEM32 一看
果然被修復了
之後
把補完計劃的 C_950.NLS 裝回去重開
我的 RO 就復活了 T.T

結論 Windows7 日文版 + RO + 用 App 繁中模式跑會錯誤
印象中以前 TwRO 不會這樣
可能私服主程式都韓國原廠的
然後又在日文 Windows7 下才會這樣吧

補一下開 AHCI 地方的圖:

Visual Studio 2010 簡單試用

2010-04-17T21:40:00.000+09:00

2008的畫面

2010的畫面

使用2010開啟2008的專案會有轉換精靈

不過

2008都不太會用了

2010就出來了O.O

GA-MA785GM-US2H BIOS 修改設定(備份)

2010-04-17T18:47:00.003+09:00

1.Load Optimized Defaults
2.Standard CMOS Features -> Drive A -> None
3.Advanced BIOS Features -> Virtualization -> Enabled
4.Integrated Peripherals -> Onboard Serial Port 1 & Onboard Parallel Port -> Disabled

印象中只有做這4個設定的樣子
要開啟 AHCI 的話
Integrated Peripherals 裡面的這 2 個地方要改一下
OnChip SATA Type -> AHCI
OnChip SATA Port4/5 Type -> As SATA Type

VMware USB Arbitration Service 啟動問題

2010-04-10T17:29:00.004+09:00

VMware USB Arbitration Service 不能啟動的問題
原因大多為安裝了 AMD SB Driver 裡的 USB 過濾器
安裝 Driver 時需注意勿安裝此項驅動程式
若裝了把 USB 控制器的驅動程式改回 Microsoft 內建的
或參考這篇
http://communities.vmware.com/thread/241662
在 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{36FC9E60-C465-11CF-8056-444553540000}
刪除 UpperFilters 此機碼
重開機即可正常啟動

ps:這個服務是給虛擬機器使用USB裝置

其實會有這篇是因為升級了電腦
cpu 4850e -> x4-630
mb m2npv-vm -> gm-ma785gm-us2h
由於 mb只有一組pata(拿來接跑vm的wd 200g)
所以又買了sata dvd-rw(ihas324)
升級後軟體使用上都很正常
就只有vm的usb服務一直有問題
使用網路上找到的方法
把usb過濾器直接移除
結果usb裝置全部不能動
後來試驗了上面的方法
服務順利啟動了

題外話
win7還真的蠻好用的
驅動幾乎都自己抓的到
雖然我還是另外裝了內建網路和音效的驅動
也裝了amd的sb driver
所以才有此問題產生
不過我也有點忘記
是裝sb前就有
還是裝了才有
google到的文章
也是有intel晶片組發生的案例

補一下圖:

Windows 7 安裝時載入驅動程式&修復相關教學

2010-03-23T17:10:00.005+09:00

Windows 7 安裝程式載入完成後會出現這畫面

選好設定後按下一步

會出現這張畫面

這時選中間的 Install now 就是馬上安裝

我們是要載入驅動程式和修復相關作業

所以選左下角的 Repair your computer

這時畫面右下會有2個選項

(因為這是沒安裝過的虛擬機器故不會找到任何OS)

要載入驅動就按 Load Drivers

接著它會要求你放入儲存的媒體(像USB隨身碟光碟片之類的)

然後它會要你選擇要開啟的地方

這時按 Computer

上面這2張的差別在於一張有插入USB 隨身碟

載入驅動程式的部份就看你放在哪個媒體上去打開就可以

驅動程式載入完成後再按 ESC 或右上角的關閉回到原本的安裝畫面

載入驅動的部份就在這邊結束

要修復作業時就不用理會 Load Drivers 直接按下一步

因為這是沒安裝過的當然也不可能有影像檔所以這邊我們直接按取消

如果你有做影像檔的話要還原按下一步

這邊沒做過所以都是空的

按左下角的進階可以選從網路搜尋影像檔或是安裝驅動程式

(因為可能有內建抓不到的裝置需要另外裝)

因為我們沒有要從影像檔修復所以直接按取消

終於出現我們想要用的部份了

按最下面的 Command Prompt 就可以開啟命令列提示字元

可以在這邊用指令修復 Windows7

例如:BCDBOOT BOOTSECT

大致上就是這樣XD

Tom's Hardware Data Link (CPU & Graphics Card)

2010-03-16T20:53:00.007+09:00

Gaming CPU Hierarchy Chart Best Gaming CPUs For The Money September 2010
OLD:
Gaming CPU Heirarchy Chart : Best Gaming CPUs For The Money: August 2010
CPU Heirarchy Chart Best Gaming CPUs For The Money May 2010
CPU Heirarchy Chart : Best Gaming CPUs For The Money: April 2010
CPU Heirarchy Chart : Best Gaming CPUs For The Money: March 2010
CPU Heirarchy Chart - Review Tom's Hardware Best Gaming CPUs For The Money February '10

Graphics Card Hierarchy Chart Best Graphics Cards For The Money September 2010
OLD:
Graphics Card Hierarchy Chart : Best Graphics Cards For The Money: August 2010
Graphics Card Hierarchy Chart Best Graphics Cards For The Money May 2010
Graphics Card Hierarchy Chart : Best Graphics Cards For The Money: April 2010
Graphics Card Hierarchy Chart : Best Graphics Cards For The Money: March 2010
Graphics Card Hierarchy Chart - Review Tom's Hardware Best Graphics Cards For The Money February '10

RO 熱鍵設定備份教學

2010-02-25T16:09:00.001+09:00

KRO使用了新的熱鍵設定
熱鍵可以自行設定習慣的鍵盤按鍵
而且它使用檔案記錄不是用Registry
檔案位置
RO\DATA\UserKeys.lua
備份這個檔案就可以

PS:這個熱鍵設定備份是指熱鍵對應到鍵盤的部份
而你熱鍵上設定的技能則是記錄在伺服器端

RO 三轉熱鍵素質職業配點圖(備份)

2010-02-25T15:17:00.014+09:00

醜陋之舞 3->5

課程 8->10

地獄之歌 5

殘響 1

支配衝動 1

重金屬音樂 5

羔羊讚頌 2->4

群體讚頌 2->4

清除 2->5

贖罪 1->5

頌謝詞 5->10

聖靈降臨的祈禱 1->5

AGI 50

VIT 85

INT 120

DEX 110

地震術 1->5

崩裂術 1->5

大地墳場 5

雲殺 5

PS:私服Wanderer職業加成似乎和KRO官方的不同

不過暫時以官方的加成配點

KRO Wanderer 介紹

Wanderer 職業加成連結網頁

其實蠻多職業加成都有問題

不知道哪時會修好

Windows 7 延期使用(30天*3)

2010-01-14T11:49:00.008+09:00

沒啟動,30天後的情形,桌面右下角會有Windows沒有啟動的訊息

系統內容(提示你要啟動)

執行這行指令

SLMGR.VBS -REARM

(使用命令列提示字元,需有Administrator權限才不會錯誤或者關掉UAC)

執行完要重開機

選Ask me later(稍後再詢問我)

按OK

桌面右下角的啟動提示不見了

系統內容顯示可以再用30天

不過這招只能用3次XD

使用下列指令來看剩餘重置次數

SLMGR.VBS /DLV

Remaining Windows rearm count:2(圖中倒數第2行)

這個就是剩餘次數(預設次數是3次)

忘了先拍可以用3次的圖,懶得弄了XD

使用登錄檔關閉 Shutdown Event Tracker

2010-01-05T16:03:00.002+09:00

一般關掉關機事件追蹤器要這樣
gpedit.msc -> Computer Configuration -> Administrative Templates -> System -> Display Shutdown Event Tracker -> Disabled

弄成登錄檔
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\Reliability]
"ShutdownReasonOn"=dword:00000000

ps:用登錄檔的話 gpedit.msc 裡的設定不會顯示
ps2:只試過WS2008R2

ADI AD1986A Windows 7 Driver

2010-01-04T19:30:00.003+09:00

用 Windows 7 蠻久了
內建的音效(ASUS M2NPV-VM)一直用 Windows 7 內建的驅動
最近找到這個驅動
試驗後
目前使用上沒遇到問題
下載點:
ftp://ftp.asus.com.tw/pub/ASUS/misc/audio/SoundMAX2000B_Audio_V610X6585_Windows7.zip

Check & Setting Tool (CST) 0.3.6.2

2009-12-27T17:07:00.001+09:00

練習寫TABPAGE所以就分成2頁了XD

設定後(一般)

設定後(服務,有關Windows Search)

設定前(一般)

設定前(服務)

下載點:
http://amgbelldandy.myweb.hinet.net/cst.zip (0.3.6.2)
SHA1:e219ed74e41eeb318363911617e5deb3486aafc8
請小心食用(?

Public Class Form1
    Dim regget(10) As String
    Dim regpath(5) As String
    Dim servicename(6) As String
    Dim strComputer = "."
    Dim objWMIService = GetObject("winmgmts:\\" & strComputer)
    Dim colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Check & Setting Tool"

        TabPage1.Text = "General"
        TabPage2.Text = "Service"

        GroupBox1.Text = "Name"
        GroupBox2.Text = "Name"
        GroupBox3.Text = "Setting"
        GroupBox4.Text = "Setting (Need Reboot)"

        ComboBox4.Items.Add("Disable")
        ComboBox4.Items.Add("Enable")
        ComboBox5.Items.Add("Disable")
        ComboBox5.Items.Add("Enable")
        ComboBox51.Items.Add("Disabled")
        ComboBox51.Items.Add("Auto")
        ComboBox52.Items.Add("Disabled")
        ComboBox52.Items.Add("Auto")
        ComboBox53.Items.Add("Disabled")
        ComboBox53.Items.Add("Auto")
        ComboBox54.Items.Add("Disabled")
        ComboBox54.Items.Add("Auto")
        ComboBox55.Items.Add("Disabled")
        ComboBox55.Items.Add("Auto")
        ComboBox56.Items.Add("Disabled")
        ComboBox56.Items.Add("Auto")

        Button1.Text = "RegisteredOwner"
        Button2.Text = "RegisteredOrganization"
        Button3.Text = "Folder Option Settings"
        Button4.Text = "AutoPlay"
        Button5.Text = "User Account Control"
        Button6.Text = "ComputerName"
        Button7.Text = "ComputerWorkgroup"
        Button11.Text = "Input"
        Button12.Text = "Input"
        Button13.Text = "Setting"
        Button14.Text = ComboBox4.Text
        Button15.Text = ComboBox5.Text
        Button16.Text = ""
        Button17.Text = ""
        Button51.Text = "No Service"
        Button52.Text = "No Service"
        Button53.Text = "No Service"
        Button54.Text = "No Service"
        Button55.Text = "No Service"
        Button56.Text = "No Service"
        Button101.Text = "Refresh"
        Button102.Text = "Setting All"
        Button103.Text = "Default"

        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = "(Read ToolTip First)"
        Label4.Text = ""
        Label5.Text = "(Need Reboot)"
        Label6.Text = ""
        Label7.Text = ""
        Label51.Text = "No Service"
        Label52.Text = "No Service"
        Label53.Text = "No Service"
        Label54.Text = "No Service"
        Label55.Text = "No Service"
        Label56.Text = "No Service"
        Label101.Text = "(Information)"
        Label102.Text = "(ServiceName)"
        Label103.Text = "(Option)"
        Label104.Text = "(ServiceStartMode)"
        Label105.Text = "(ServiceState)"
        Label106.Text = "(Option)"
        Label150.Text = "Version 0.3.6.2"

        RadioButton1.Text = "On"
        RadioButton2.Text = "Off"

        TextBox51.Text = "No Service"
        TextBox52.Text = "No Service"
        TextBox53.Text = "No Service"
        TextBox54.Text = "No Service"
        TextBox55.Text = "No Service"
        TextBox56.Text = "No Service"

        regpath(0) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
        regpath(1) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
        regpath(2) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers"
        regpath(3) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
        regpath(4) = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services"

        Me.Button101.PerformClick()
        Me.Button103.PerformClick()
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button101.Click
        regget(0) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOwner", Nothing)
        regget(1) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOrganization", Nothing)
        regget(2) = My.Computer.Registry.GetValue _
                    (regpath(1), "Hidden", Nothing)
        regget(3) = My.Computer.Registry.GetValue _
                    (regpath(1), "HideFileExt", Nothing)
        regget(4) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowSuperHidden", Nothing)
        regget(5) = My.Computer.Registry.GetValue _
                    (regpath(1), "SeparateProcess", Nothing)
        regget(6) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowCompColor", Nothing)
        regget(7) = My.Computer.Registry.GetValue _
                    (regpath(1), "SharingWizardOn", Nothing)
        regget(8) = My.Computer.Registry.GetValue _
                    (regpath(2), "DisableAutoplay", Nothing)
        regget(9) = My.Computer.Registry.GetValue _
                    (regpath(3), "EnableLUA", Nothing)

        TextBox1.Text = regget(0)
        TextBox2.Text = regget(1)

        If regget(2) = 1 And _
           regget(3) = 0 And _
           regget(4) = 1 And _
           regget(5) = 1 And _
           regget(6) = 0 And _
           regget(7) = 0 Then
            TextBox3.Text = "Default Setting"
        Else
            TextBox3.Text = "User Setting"
        End If

        If regget(8) = 1 Then
            TextBox4.Text = "Disabled"
        Else
            TextBox4.Text = "Enabled"
        End If

        If regget(9) = 0 Then
            TextBox5.Text = "Disabled"
        Else
            TextBox5.Text = "Enabled"
        End If

        For Each objComputer In colSettings
            TextBox6.Text = objComputer.Name
            TextBox7.Text = objComputer.Workgroup
        Next

        servicename(0) = "WinDefend"
        servicename(1) = "MpsSvc"
        servicename(2) = "Themes"
        servicename(3) = "AudioSrv"
        servicename(4) = "wscsvc"
        servicename(5) = "WSearch"
        For i = 0 To 5 Step 1
            If My.Computer.Registry.GetValue _
               (regpath(4) & "\" & servicename(i), _
               "DisplayName", Nothing) Is Nothing Then
                Select Case servicename(i)
                    Case servicename(0)
                        Button61.Visible = False
                        ComboBox51.Visible = False
                    Case servicename(1)
                        Button62.Visible = False
                        ComboBox52.Visible = False
                    Case servicename(2)
                        Button63.Visible = False
                        ComboBox53.Visible = False
                    Case servicename(3)
                        Button64.Visible = False
                        ComboBox54.Visible = False
                    Case servicename(4)
                        Button65.Visible = False
                        ComboBox55.Visible = False
                    Case servicename(5)
                        Button66.Visible = False
                        ComboBox56.Visible = False
                End Select
            Else
                Select Case servicename(i)
                    Case servicename(0)
                        Dim WinDefend = objWMIService.Get _
                        ("Win32_Service.Name='WinDefend'")
                        Button51.Text = WinDefend.DisplayName
                        TextBox51.Text = WinDefend.StartMode
                        Button61.Text = ComboBox51.Text
                        Label51.Text = WinDefend.State()
                    Case servicename(1)
                        Dim MpsSvc = objWMIService.Get _
                        ("Win32_Service.Name='MpsSvc'")
                        Button52.Text = MpsSvc.DisplayName
                        TextBox52.Text = MpsSvc.StartMode
                        Button62.Text = ComboBox52.Text
                        Label52.Text = MpsSvc.State()
                    Case servicename(2)
                        Dim Themes = objWMIService.Get _
                        ("Win32_Service.Name='Themes'")
                        Button53.Text = Themes.DisplayName
                        TextBox53.Text = Themes.StartMode
                        Button63.Text = ComboBox53.Text
                        Label53.Text = Themes.State()
                    Case servicename(3)
                        Dim AudioSrv = objWMIService.Get _
                        ("Win32_Service.Name='AudioSrv'")
                        Button54.Text = AudioSrv.DisplayName
                        TextBox54.Text = AudioSrv.StartMode
                        Button64.Text = ComboBox54.Text
                        Label54.Text = AudioSrv.State()
                    Case servicename(4)
                        Dim wscsvc = objWMIService.Get _
                        ("Win32_Service.Name='wscsvc'")
                        Button55.Text = wscsvc.DisplayName
                        TextBox55.Text = wscsvc.StartMode
                        Button65.Text = ComboBox55.Text
                        Label55.Text = wscsvc.State
                    Case servicename(5)
                        Dim WSearch = objWMIService.Get _
                        ("Win32_Service.Name='WSearch'")
                        Button56.Text = WSearch.DisplayName
                        TextBox56.Text = WSearch.StartMode
                        Button66.Text = ComboBox56.Text
                        Label56.Text = WSearch.State
                End Select
            End If
        Next
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If ComboBox4.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "1", Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "0", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If ComboBox5.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "1", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        My.Computer.Registry.SetValue _
        (regpath(1), "Hidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "HideFileExt", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowSuperHidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SeparateProcess", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowCompColor", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SharingWizardOn", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Dim RegisteredOwner As String
        RegisteredOwner = TextBox11.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOwner", RegisteredOwner, Microsoft.Win32.RegistryValueKind.String)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim RegisteredOrganization As String
        RegisteredOrganization = TextBox12.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOrganization", RegisteredOrganization, Microsoft.Win32.RegistryValueKind.String)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click
        If ComboBox51.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button62.Click
        If ComboBox52.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button63.Click
        If ComboBox53.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click
        If ComboBox54.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click
        If ComboBox55.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button102.Click
        Me.TabControl1.SelectedTab = TabPage1
        Me.Button11.PerformClick()
        Me.Button12.PerformClick()
        Me.Button13.PerformClick()
        Me.Button14.PerformClick()
        Me.Button15.PerformClick()
        Me.TabControl1.SelectedTab = TabPage2
        Me.Button61.PerformClick()
        Me.Button62.PerformClick()
        Me.Button63.PerformClick()
        Me.Button64.PerformClick()
        Me.Button65.PerformClick()
        Me.Button66.PerformClick()
        Me.TabControl1.SelectedTab = TabPage1
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        Button14.Text = ComboBox4.Text
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
        Button15.Text = ComboBox5.Text
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox51.SelectedIndexChanged
        Button61.Text = ComboBox51.Text
    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox52.SelectedIndexChanged
        Button62.Text = ComboBox52.Text
    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox53.SelectedIndexChanged
        Button63.Text = ComboBox53.Text
    End Sub

    Private Sub ComboBox6_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox54.SelectedIndexChanged
        Button64.Text = ComboBox54.Text
    End Sub

    Private Sub ComboBox7_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox55.SelectedIndexChanged
        Button65.Text = ComboBox55.Text
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button103.Click
        TextBox11.Text = "Belldandy"
        TextBox12.Text = "Syaorin"
        ComboBox4.SelectedIndex = 0
        ComboBox5.SelectedIndex = 0
        ComboBox51.SelectedIndex = 0
        ComboBox52.SelectedIndex = 0
        ComboBox53.SelectedIndex = 1
        ComboBox54.SelectedIndex = 1
        ComboBox55.SelectedIndex = 0
        ComboBox56.SelectedIndex = 1
        RadioButton1.Checked = True
    End Sub

    Private Sub Button66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button66.Click
        If ComboBox56.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub ComboBox56_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox56.SelectedIndexChanged
        Button66.Text = ComboBox56.Text
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Button13.Enabled = True
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Button13.Enabled = False
    End Sub
End Class

MSN 不用裝防毒程式傳檔設定方法

2009-12-27T01:00:00.005+09:00

依照上圖設定打2個雙引號即可

補充一下

這個方法缺點是會顯示掃毒失敗

Check & Setting Tool Version 0.3.6

2009-12-16T17:22:00.002+09:00

根據建議重寫了設定介面

下載點:
http://amgbelldandy.myweb.hinet.net/WindowsApplication.zip (0.3.6)
SHA1:c30813afe75f909bd09660da8defdbedd4254d92
請小心食用(?

Public Class Form1
    Dim regget(10) As String
    Dim regpath(5) As String
    Dim servicename(6) As String
    Dim strComputer = "."
    Dim objWMIService = GetObject("winmgmts:\\" & strComputer)
    Dim colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Check & Setting Tool"

        GroupBox1.Text = "General"
        GroupBox2.Text = "Service"
        GroupBox3.Text = "General Setting"
        GroupBox4.Text = "Service Setting (Need Reboot)"

        ComboBox4.Items.Add("Disable")
        ComboBox4.Items.Add("Enable")
        ComboBox4.SelectedIndex = 0
        ComboBox5.Items.Add("Disable")
        ComboBox5.Items.Add("Enable")
        ComboBox5.SelectedIndex = 0
        ComboBox51.Items.Add("Disabled")
        ComboBox51.Items.Add("Auto")
        ComboBox51.SelectedIndex = 0
        ComboBox52.Items.Add("Disabled")
        ComboBox52.Items.Add("Auto")
        ComboBox52.SelectedIndex = 0
        ComboBox53.Items.Add("Disabled")
        ComboBox53.Items.Add("Auto")
        ComboBox53.SelectedIndex = 1
        ComboBox54.Items.Add("Disabled")
        ComboBox54.Items.Add("Auto")
        ComboBox54.SelectedIndex = 1
        ComboBox55.Items.Add("Disabled")
        ComboBox55.Items.Add("Auto")
        ComboBox55.SelectedIndex = 0
        ComboBox56.Items.Add("Disabled")
        ComboBox56.Items.Add("Auto")
        ComboBox56.SelectedIndex = 1

        Button1.Text = "RegisteredOwner"
        Button2.Text = "RegisteredOrganization"
        Button3.Text = "Folder Option Settings"
        Button4.Text = "AutoPlay"
        Button5.Text = "User Account Control"
        Button6.Text = "ComputerName"
        Button7.Text = "ComputerWorkgroup"
        Button11.Text = "Input"
        Button12.Text = "Input"
        Button13.Text = "Setting"
        Button14.Text = ComboBox4.Text
        Button15.Text = ComboBox5.Text
        Button16.Text = ""
        Button17.Text = ""
        Button23.Text = ""
        Button51.Text = "No Service"
        Button52.Text = "No Service"
        Button53.Text = "No Service"
        Button54.Text = "No Service"
        Button55.Text = "No Service"
        Button56.Text = "No Service"
        Button101.Text = "Refresh"
        Button102.Text = "Setting All"
        Button103.Text = "Default"

        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = "(Read ToolTip First)"
        Label4.Text = ""
        Label5.Text = "(Need Reboot)"
        Label6.Text = ""
        Label7.Text = ""
        Label51.Text = "No Service"
        Label52.Text = "No Service"
        Label53.Text = "No Service"
        Label54.Text = "No Service"
        Label55.Text = "No Service"
        Label56.Text = "No Service"
        Label101.Text = "(Information)"
        Label102.Text = "(ServiceName)"
        Label103.Text = "(Option)"
        Label104.Text = "(ServiceStartMode)"
        Label105.Text = "(ServiceState)"
        Label106.Text = "(Option)"
        Label150.Text = "Version 0.3.6"

        TextBox11.Text = "Belldandy"
        TextBox12.Text = "Syaorin"
        TextBox51.Text = "No Service"
        TextBox52.Text = "No Service"
        TextBox53.Text = "No Service"
        TextBox54.Text = "No Service"
        TextBox55.Text = "No Service"
        TextBox56.Text = "No Service"

        regpath(0) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
        regpath(1) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
        regpath(2) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers"
        regpath(3) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
        regpath(4) = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services"

        Me.Button101.PerformClick()
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button101.Click
        regget(0) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOwner", Nothing)
        regget(1) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOrganization", Nothing)
        regget(2) = My.Computer.Registry.GetValue _
                    (regpath(1), "Hidden", Nothing)
        regget(3) = My.Computer.Registry.GetValue _
                    (regpath(1), "HideFileExt", Nothing)
        regget(4) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowSuperHidden", Nothing)
        regget(5) = My.Computer.Registry.GetValue _
                    (regpath(1), "SeparateProcess", Nothing)
        regget(6) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowCompColor", Nothing)
        regget(7) = My.Computer.Registry.GetValue _
                    (regpath(1), "SharingWizardOn", Nothing)
        regget(8) = My.Computer.Registry.GetValue _
                    (regpath(2), "DisableAutoplay", Nothing)
        regget(9) = My.Computer.Registry.GetValue _
                    (regpath(3), "EnableLUA", Nothing)

        TextBox1.Text = regget(0)
        TextBox2.Text = regget(1)
        If regget(2) = 1 And _
           regget(3) = 0 And _
           regget(4) = 1 And _
           regget(5) = 1 And _
           regget(6) = 0 And _
           regget(7) = 0 Then
            TextBox3.Text = "Default Setting"
        Else
            TextBox3.Text = "User Setting"
        End If
        If regget(8) = 1 Then
            TextBox4.Text = "Disabled"
        Else
            TextBox4.Text = "Enabled"
        End If
        If regget(9) = 0 Then
            TextBox5.Text = "Disabled"
        Else
            TextBox5.Text = "Enabled"
        End If
        For Each objComputer In colSettings
            TextBox6.Text = objComputer.Name
            TextBox7.Text = objComputer.Workgroup
        Next

        servicename(0) = "WinDefend"
        servicename(1) = "MpsSvc"
        servicename(2) = "Themes"
        servicename(3) = "AudioSrv"
        servicename(4) = "wscsvc"
        servicename(5) = "WSearch"
        For i = 0 To 5 Step 1
            If My.Computer.Registry.GetValue _
               (regpath(4) & "\" & servicename(i), _
               "DisplayName", Nothing) Is Nothing Then
                Select Case servicename(i)
                    Case servicename(0)
                        Button61.Visible = False
                        ComboBox51.Visible = False
                    Case servicename(1)
                        Button62.Visible = False
                        ComboBox52.Visible = False
                    Case servicename(2)
                        Button63.Visible = False
                        ComboBox53.Visible = False
                    Case servicename(3)
                        Button64.Visible = False
                        ComboBox54.Visible = False
                    Case servicename(4)
                        Button65.Visible = False
                        ComboBox55.Visible = False
                    Case servicename(5)
                        Button66.Visible = False
                        ComboBox56.Visible = False
                End Select
            Else
                Select Case servicename(i)
                    Case servicename(0)
                        Dim WinDefend = objWMIService.Get _
                        ("Win32_Service.Name='WinDefend'")
                        Button51.Text = WinDefend.DisplayName
                        TextBox51.Text = WinDefend.StartMode
                        Button61.Text = ComboBox51.Text
                        Label51.Text = WinDefend.State()
                    Case servicename(1)
                        Dim MpsSvc = objWMIService.Get _
                        ("Win32_Service.Name='MpsSvc'")
                        Button52.Text = MpsSvc.DisplayName
                        TextBox52.Text = MpsSvc.StartMode
                        Button62.Text = ComboBox52.Text
                        Label52.Text = MpsSvc.State()
                    Case servicename(2)
                        Dim Themes = objWMIService.Get _
                        ("Win32_Service.Name='Themes'")
                        Button53.Text = Themes.DisplayName
                        TextBox53.Text = Themes.StartMode
                        Button63.Text = ComboBox53.Text
                        Label53.Text = Themes.State()
                    Case servicename(3)
                        Dim AudioSrv = objWMIService.Get _
                        ("Win32_Service.Name='AudioSrv'")
                        Button54.Text = AudioSrv.DisplayName
                        TextBox54.Text = AudioSrv.StartMode
                        Button64.Text = ComboBox54.Text
                        Label54.Text = AudioSrv.State()
                    Case servicename(4)
                        Dim wscsvc = objWMIService.Get _
                        ("Win32_Service.Name='wscsvc'")
                        Button55.Text = wscsvc.DisplayName
                        TextBox55.Text = wscsvc.StartMode
                        Button65.Text = ComboBox55.Text
                        Label55.Text = wscsvc.State
                    Case servicename(5)
                        Dim WSearch = objWMIService.Get _
                        ("Win32_Service.Name='WSearch'")
                        Button56.Text = WSearch.DisplayName
                        TextBox56.Text = WSearch.StartMode
                        Button66.Text = ComboBox56.Text
                        Label56.Text = WSearch.State
                End Select
            End If
        Next
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If ComboBox4.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "1", Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "0", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If ComboBox5.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "1", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        My.Computer.Registry.SetValue _
        (regpath(1), "Hidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "HideFileExt", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowSuperHidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SeparateProcess", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowCompColor", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SharingWizardOn", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Dim RegisteredOwner As String
        RegisteredOwner = TextBox11.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOwner", RegisteredOwner, Microsoft.Win32.RegistryValueKind.String)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim RegisteredOrganization As String
        RegisteredOrganization = TextBox12.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOrganization", RegisteredOrganization, Microsoft.Win32.RegistryValueKind.String)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click
        If ComboBox51.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button62.Click
        If ComboBox52.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button63.Click
        If ComboBox53.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click
        If ComboBox54.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click
        If ComboBox55.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button102.Click
        Me.Button11.PerformClick()
        Me.Button12.PerformClick()
        Me.Button13.PerformClick()
        Me.Button14.PerformClick()
        Me.Button15.PerformClick()
        Me.Button61.PerformClick()
        Me.Button62.PerformClick()
        Me.Button63.PerformClick()
        Me.Button64.PerformClick()
        Me.Button65.PerformClick()
        Me.Button66.PerformClick()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        Button14.Text = ComboBox4.Text
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
        Button15.Text = ComboBox5.Text
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox51.SelectedIndexChanged
        Button61.Text = ComboBox51.Text
    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox52.SelectedIndexChanged
        Button62.Text = ComboBox52.Text
    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox53.SelectedIndexChanged
        Button63.Text = ComboBox53.Text
    End Sub

    Private Sub ComboBox6_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox54.SelectedIndexChanged
        Button64.Text = ComboBox54.Text
    End Sub

    Private Sub ComboBox7_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox55.SelectedIndexChanged
        Button65.Text = ComboBox55.Text
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button103.Click
        TextBox11.Text = "Belldandy"
        TextBox12.Text = "Syaorin"
        ComboBox4.SelectedIndex = 0
        ComboBox5.SelectedIndex = 0
        ComboBox51.SelectedIndex = 0
        ComboBox52.SelectedIndex = 0
        ComboBox53.SelectedIndex = 1
        ComboBox54.SelectedIndex = 1
        ComboBox55.SelectedIndex = 0
        ComboBox56.SelectedIndex = 1
    End Sub

    Private Sub Button66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button66.Click
        If ComboBox56.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub ComboBox56_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox56.SelectedIndexChanged
        Button66.Text = ComboBox56.Text
    End Sub
End Class

Check & Setting Tool 使用說明

2009-12-12T15:27:00.005+09:00

執行畫面:(Windows 7和Windows Server 2008 R2)

Windows Server 2008 R2 服務的部份會有3個顯示No Service

因為 WS2008R2 沒有 Security Center 故不能設定此選項
而 Themes 和 Windows Defender 需安裝 Desktop Experience 才能設定

程式功能:
1.設定登錄的使用者和公司
2.設定資料夾選項更改設定為下面六項(因主要使用為日英版故使用英文)
Hidden files and folders -> Show hidden files, folders, and drives
Hide extensions for known file types -> Not selected
Hide protected operating system files (Recommended) -> Not selected
Launch folder windows in a separate process -> Selected
Show encrypted or compressed NTFS files in color -> Not selected
Use Sharing Wizard (Recommended) -> Not selected
如果這六項設定任一項設定不同上面檢查後會顯示 Error
3.關閉自動播放
4.關閉UAC
5.顯示目前電腦名稱和工作群組
6.關閉服務(Windows Defender,Windows Firewall,Security Center) PS:WS2008R2無Security Center
7.啟動服務(Themes,Windows Audio) PS:給 WS2008R2 用的 Windows 7 預設已啟動
8.Auto功能懶人用按一下就設定上面所有的內容

程式環境:
要有.NET 2.0
基本上只建議 Windows 7 和 WS2008R2 使用
Vista 和 WS2008 應該也可以用(未測試過目前沒跑這2種的虛擬機器)
XP 和 WS2003 不建議使用(出錯機率蠻高的XD)

其它建議:
因為關了 Windows Defender , Windows Firewall , Security Center 這3個服務
建議自己另外裝防火牆和防毒軟體

常見問題:
如果出現此錯誤的話:

請用Administrator執行(如下圖)

如果出現UAC的警告畫面請按YES

設定完不滿意的話

就去控制台一個一個改回來

目前不提供懶人回復法XD

下載點:

http://amgbelldandy.myweb.hinet.net/WindowsApplication.zip (0.3.6)

SHA1:c30813afe75f909bd09660da8defdbedd4254d92

請小心食用(?

Check & Setting Tool 0.3.4

2009-12-10T17:50:00.011+09:00

主要是拿來設定 Windows 7 和 Windows Server 2008 R2(Desktop Experience要先裝)
簡化設定的過程
寫得有點爛
能用就好(死

2009/12/11 重寫了一些部份(Button13)

Windows 7 和 Windows Server 2008R2 的圖片:

Public Class Form1
    Dim regget(10) As String
    Dim regpath(5) As String
    Dim servicename(5) As String
    Dim strComputer = "."
    Dim objWMIService = GetObject("winmgmts:\\" & strComputer)
    Dim colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Check & Setting Tool 0.3.4"
        GroupBox1.Text = "General"
        GroupBox2.Text = "Service"
        GroupBox3.Text = "General Setting"
        GroupBox4.Text = "Service Setting (Need Reboot)"
        Button1.Text = "RegisteredOwner"
        Button2.Text = "RegisteredOrganization"
        Button3.Text = "Folder Option Settings"
        Button4.Text = "AutoPlay"
        Button5.Text = "User Account Control"
        Button6.Text = "ComputerName"
        Button7.Text = "ComputerWorkgroup"
        Button8.Text = "No Service"
        Button9.Text = "No Service"
        Button10.Text = "No Service"
        Button11.Text = "No Service"
        Button12.Text = "No Service"
        Button13.Text = "Refresh"
        Button14.Text = "Input"
        Button15.Text = "Input"
        Button16.Text = "Setting"
        Button17.Text = "Disable"
        Button18.Text = "Disable"
        Button19.Text = ""
        Button20.Text = ""
        Button21.Text = "No Service"
        Button22.Text = "No Service"
        Button23.Text = "No Service"
        Button24.Text = "No Service"
        Button25.Text = "No Service"
        Button26.Text = "Auto Setting"
        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = "(Read ToolTip First)"
        Label4.Text = ""
        Label5.Text = "(Need Reboot)"
        Label6.Text = ""
        Label7.Text = ""
        Label8.Text = "(Start Mode)"
        Label9.Text = "(Click)"
        Label10.Text = "(Click)"
        Label11.Text = "No Service"
        Label12.Text = "No Service"
        Label13.Text = "No Service"
        Label14.Text = "No Service"
        Label15.Text = "No Service"
        Label16.Text = "(Read From WMI)"
        Label17.Text = "(Service State)"
        Label18.Text = "(Information)"
        TextBox8.Text = "No Service"
        TextBox9.Text = "No Service"
        TextBox10.Text = "No Service"
        TextBox11.Text = "No Service"
        TextBox12.Text = "No Service"
        TextBox13.Text = "Belldandy"
        TextBox14.Text = "Syaorin"
        regpath(0) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
        regpath(1) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
        regpath(2) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers"
        regpath(3) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
        regpath(4) = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services"
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        regget(0) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOwner", Nothing)
        regget(1) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOrganization", Nothing)
        regget(2) = My.Computer.Registry.GetValue _
                    (regpath(1), "Hidden", Nothing)
        regget(3) = My.Computer.Registry.GetValue _
                    (regpath(1), "HideFileExt", Nothing)
        regget(4) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowSuperHidden", Nothing)
        regget(5) = My.Computer.Registry.GetValue _
                    (regpath(1), "SeparateProcess", Nothing)
        regget(6) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowCompColor", Nothing)
        regget(7) = My.Computer.Registry.GetValue _
                    (regpath(1), "SharingWizardOn", Nothing)
        regget(8) = My.Computer.Registry.GetValue _
                    (regpath(2), "DisableAutoplay", Nothing)
        regget(9) = My.Computer.Registry.GetValue _
                    (regpath(3), "EnableLUA", Nothing)
        servicename(0) = "WinDefend"
        servicename(1) = "MpsSvc"
        servicename(2) = "Themes"
        servicename(3) = "AudioSrv"
        servicename(4) = "wscsvc"
        TextBox1.Text = regget(0)
        TextBox2.Text = regget(1)
        If regget(2) = 1 And _
           regget(3) = 0 And _
           regget(4) = 1 And _
           regget(5) = 1 And _
           regget(6) = 0 And _
           regget(7) = 0 Then
            TextBox3.Text = "OK"
        Else
            TextBox3.Text = "Error"
        End If
        If regget(8) = 1 Then
            TextBox4.Text = "Disabled"
        Else
            TextBox4.Text = "Enabled"
        End If
        If regget(9) = 0 Then
            TextBox5.Text = "Disabled"
        Else
            TextBox5.Text = "Enabled"
        End If
        For Each objComputer In colSettings
            TextBox6.Text = objComputer.Name
            TextBox7.Text = objComputer.Workgroup
        Next
        For i = 0 To 4 Step 1
            If My.Computer.Registry.GetValue _
               (regpath(4) & "\" & servicename(i), _
               "DisplayName", Nothing) Is Nothing Then
                Select Case servicename(i)
                    Case servicename(0)
                        Button21.Enabled = False
                    Case servicename(1)
                        Button22.Enabled = False
                    Case servicename(2)
                        Button23.Enabled = False
                    Case servicename(3)
                        Button24.Enabled = False
                    Case servicename(4)
                        Button25.Enabled = False
                End Select
            Else
                Select Case servicename(i)
                    Case servicename(0)
                        Dim WinDefend = objWMIService.Get _
                        ("Win32_Service.Name='WinDefend'")
                        Button8.Text = WinDefend.DisplayName
                        TextBox8.Text = WinDefend.StartMode
                        Button21.Text = "Disable"
                        Label11.Text = WinDefend.State()
                    Case servicename(1)
                        Dim MpsSvc = objWMIService.Get _
                        ("Win32_Service.Name='MpsSvc'")
                        Button9.Text = MpsSvc.DisplayName
                        TextBox9.Text = MpsSvc.StartMode
                        Button22.Text = "Disable"
                        Label12.Text = MpsSvc.State()
                    Case servicename(2)
                        Dim Themes = objWMIService.Get _
                        ("Win32_Service.Name='Themes'")
                        Button10.Text = Themes.DisplayName
                        TextBox10.Text = Themes.StartMode
                        Button23.Text = "Auto"
                        Label13.Text = Themes.State()
                    Case servicename(3)
                        Dim AudioSrv = objWMIService.Get _
                        ("Win32_Service.Name='AudioSrv'")
                        Button11.Text = AudioSrv.DisplayName
                        TextBox11.Text = AudioSrv.StartMode
                        Button24.Text = "Auto"
                        Label14.Text = AudioSrv.State()
                    Case servicename(4)
                        Dim wscsvc = objWMIService.Get _
                        ("Win32_Service.Name='wscsvc'")
                        Button12.Text = wscsvc.DisplayName
                        TextBox12.Text = wscsvc.StartMode
                        Button25.Text = "Disable"
                        Label15.Text = wscsvc.State
                End Select
            End If
        Next
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        My.Computer.Registry.SetValue _
        (regpath(2), "DisableAutoplay", "1", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        My.Computer.Registry.SetValue _
        (regpath(3), "EnableLUA", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        My.Computer.Registry.SetValue _
        (regpath(1), "Hidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "HideFileExt", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowSuperHidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SeparateProcess", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowCompColor", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SharingWizardOn", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Dim RegisteredOwner As String
        RegisteredOwner = TextBox13.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOwner", RegisteredOwner, Microsoft.Win32.RegistryValueKind.String)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Dim RegisteredOrganization As String
        RegisteredOrganization = TextBox14.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOrganization", RegisteredOrganization, Microsoft.Win32.RegistryValueKind.String)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        My.Computer.Registry.SetValue _
        (regpath(4) & "\WinDefend", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        My.Computer.Registry.SetValue _
        (regpath(4) & "\MpsSvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        My.Computer.Registry.SetValue _
        (regpath(4) & "\Themes", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        My.Computer.Registry.SetValue _
        (regpath(4) & "\AudioSrv", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        My.Computer.Registry.SetValue _
        (regpath(4) & "\wscsvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        Me.Button14.PerformClick()
        Me.Button15.PerformClick()
        Me.Button16.PerformClick()
        Me.Button17.PerformClick()
        Me.Button18.PerformClick()
        Me.Button21.PerformClick()
        Me.Button22.PerformClick()
        Me.Button23.PerformClick()
        Me.Button24.PerformClick()
        Me.Button25.PerformClick()
    End Sub
End Class

OLD PICTURE:
0.3.2

0.3.1

VB.NET Check Tool

2009-12-06T20:44:00.003+09:00


Public Class Form1
    Dim regget(10) As String
    Dim strComputer = "."
    Dim objWMIService = GetObject("winmgmts:\\" & strComputer)
    Dim colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
    Dim WinDefend = objWMIService.Get("Win32_Service.Name='WinDefend'")
    Dim MpsSvc = objWMIService.Get("Win32_Service.Name='MpsSvc'")
    Dim Themes = objWMIService.Get("Win32_Service.Name='Themes'")
    Dim AudioSrv = objWMIService.Get("Win32_Service.Name='AudioSrv'")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Text = "Check Tool"
        Button1.Text = "RegisteredOwner"
        Button2.Text = "RegisteredOrganization"
        Button3.Text = "Folder Option Settings"
        Button4.Text = "AutoPlay"
        Button5.Text = "User Account Control"
        Button6.Text = "ComputerName"
        Button7.Text = "ComputerWorkgroup"
        Button8.Text = WinDefend.DisplayName
        Button9.Text = MpsSvc.DisplayName
        Button10.Text = Themes.DisplayName
        Button11.Text = AudioSrv.DisplayName
        Button12.Text = "No Service"
        regget(0) = My.Computer.Registry.GetValue _
                ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", Nothing)
        regget(1) = My.Computer.Registry.GetValue _
                ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", Nothing)
        regget(2) = My.Computer.Registry.GetValue _
                        ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", Nothing)
        regget(3) = My.Computer.Registry.GetValue _
                        ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt", Nothing)
        regget(4) = My.Computer.Registry.GetValue _
                        ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", Nothing)
        regget(5) = My.Computer.Registry.GetValue _
                        ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "SeparateProcess", Nothing)
        regget(6) = My.Computer.Registry.GetValue _
                        ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowCompColor", Nothing)
        regget(7) = My.Computer.Registry.GetValue _
                        ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "SharingWizardOn", Nothing)
        regget(8) = My.Computer.Registry.GetValue _
                        ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers", "DisableAutoplay", Nothing)
        regget(9) = My.Computer.Registry.GetValue _
                        ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", Nothing)
        TextBox1.Text = regget(0)
        TextBox2.Text = regget(1)
        If regget(2) = 1 And regget(3) = 0 And regget(4) = 1 And regget(5) = 1 And regget(6) = 0 And regget(7) = 0 Then
            TextBox3.Text = "OK"
        Else
            TextBox3.Text = "Error"
        End If
        If regget(8) = 1 Then
            TextBox4.Text = "Disabled"
        Else
            TextBox4.Text = "Enabled"
        End If
        If regget(9) = 0 Then
            TextBox5.Text = "Disabled"
        Else
            TextBox5.Text = "Enabled"
        End If
        For Each objComputer In colSettings
            TextBox6.Text = objComputer.Name
            TextBox7.Text = objComputer.Workgroup
        Next
        TextBox8.Text = WinDefend.StartMode & Chr(9) & WinDefend.State
        TextBox9.Text = MpsSvc.StartMode & Chr(9) & MpsSvc.State
        TextBox10.Text = Themes.StartMode & Chr(9) & Themes.State
        TextBox11.Text = AudioSrv.StartMode & Chr(9) & AudioSrv.State
        If My.Computer.Registry.GetValue _
        ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\wscsvc", "DisplayName", Nothing) Is Nothing Then
            TextBox12.Text = "No Service"
        Else
            Dim wscsvc = objWMIService.Get("Win32_Service.Name='wscsvc'")
            Button12.Text = wscsvc.DisplayName
            TextBox12.Text = wscsvc.StartMode & Chr(9) & wscsvc.State
        End If
    End Sub
End Class

TypedPaths 登錄檔

2009-12-01T17:12:00.000+09:00

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TypedPaths]
"url1"="\\\\vmware-host\\Shared Folders"

使用登錄檔關閉 UAC

2009-11-22T17:54:00.011+09:00

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"EnableLUA"=dword:00000000

得重開機設定才會有效

Windows System Assessment Tool(WinSAT) Disable

2009-11-22T12:33:00.006+09:00

把這個討人厭的東西徹底關閉的方法
改2個地方讓它不會自動執行&手動也不能跑= =

Task Scheduler:(WinSAT->Disabled)

Local Security Policy:(禁用WinSAT.exe)

這個東西害我當了3次機
因為我的 Windows 7 設定關閉螢幕會當機(可能跟程式有相衝原因不明)
它跑的時候把電源計劃改成效能(我平常是用平衡也設定不關螢幕而且我習慣手動關)
結果就害我當了3次機而且效能和平衡關螢幕的時間還不同(20分;15分)
害我沒想到是被改了電源計劃

不過也可能跟我處理的方式有關
那時我正在忙(打RO XD)
它就排程執行了= =
我直接就用工作管理員把它給關了
也許它跑完會把電源計劃改回來
不過我也不想試了
直接關了它省事
而且那時候我CPU使用率超過50%
它還堅持要跑
差點被它氣死
有點想用回 Windows Server 系列了
Server 的 OS 比較不會做這種事
應該是用習慣WS2003R2了XD
Windows 7 還用不到2個月(VM上的不算)

限制軟體執行的方法 (PATH)

2009-11-22T12:26:00.001+09:00

限制軟體執行的方法
Administrative Tools -> Local Security Policy -> Software Restriction Policies -> Additional Rules -> New Path Rule (Action -> New Software Restriction Policies)
C:\Program Files (x86)\Internet Explorer\iexplore.exe
C:\Program Files (x86)\Windows Media Player\wmplayer.exe
C:\Program Files\Internet Explorer\iexplore.exe
C:\Program Files\Windows Media Player\wmplayer.exe
C:\Windows\System32\WinSAT.exe

使用登錄檔關閉 Autoplay

2009-11-22T12:21:00.000+09:00

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers]
"DisableAutoplay"=dword:00000001

VBS Check Tool

2009-11-15T20:40:00.005+09:00


Set WshShell = WScript.CreateObject("WScript.Shell")
Dim co(15)
co(0) = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")
co(1) = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization")
co(2) = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden")
co(3) = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt")
co(4) = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden")
co(5) = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SeparateProcess")
co(6) = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowCompColor")
co(7) = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SharingWizardOn")
If co(2) = 1 And co(3) = 0 And co(4) = 1 And co(5) = 1 And co(6) = 0 And co(7) = 0 Then
co(8) = "OK"
Else
co(8) = "Error"
End If
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer)
Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings 
co(9) = objComputer.Name
co(10) = objComputer.Workgroup
Next
co(11) = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\DisableAutoplay")
If co(11) = 1 Then
co(12) = "Disabled"
Else
co(12) = "Enabled"
End If
co(13) = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA")
If co(13) = 0 Then
co(14) = "Disabled"
Else
co(14) = "Enabled"
End If
Set WinDefend = objWMIService.Get("Win32_Service.Name='WinDefend'")
Set MpsSvc = objWMIService.Get("Win32_Service.Name='MpsSvc'")
Do
osselect = InputBox("1 = Windows 7" &Chr(10) & _
                    "2 = Windows Server 2008 R2" , "Select Windows Version (0=Exit)" , "Input A Numeric For Your Choice")
Loop While IsNumeric(osselect) = Flase
Select Case osselect
Case 0
Case 1
Set wscsvc = objWMIService.Get("Win32_Service.Name='wscsvc'")
MsgBox "ComputerName = " &co(9) &Chr(10) & _
       "ComputerWorkgroup = " &co(10) &Chr(10) & _
       "RegisteredOwner = " &co(0) &Chr(10) & _
       "RegisteredOrganization = " &co(1) &Chr(10) & _
       "Folder Option Settings = " &co(8) &Chr(10) & _
       "Autoplay = " &co(12) &Chr(10) & _
       "UAC = " &co(14) &Chr(10) & _
       "Security Center : State = " &wscsvc.State &" ; StartMode = " &wscsvc.StartMode &Chr(10) & _
       "Windows Defender : State = " &WinDefend.State &" ; StartMode = " &WinDefend.StartMode &Chr(10) & _
       "Windows Firewall : State = " &MpsSvc.State &" ; StartMode = " &MpsSvc.StartMode  , 0 , "Check Tool"
Case 2
Set Themes = objWMIService.Get("Win32_Service.Name='Themes'")
Set AudioSrv = objWMIService.Get("Win32_Service.Name='AudioSrv'")
MsgBox "ComputerName = " &co(9) &Chr(10) & _
       "ComputerWorkgroup = " &co(10) &Chr(10) & _
       "RegisteredOwner = " &co(0) &Chr(10) & _
       "RegisteredOrganization = " &co(1) &Chr(10) & _
       "Folder Option Settings = " &co(8) &Chr(10) & _
       "Autoplay = " &co(12) &Chr(10) & _
       "UAC = " &co(14) &Chr(10) & _
       "Windows Defender : State = " &WinDefend.State &" ; StartMode = " &WinDefend.StartMode &Chr(10) & _
       "Windows Firewall : State = " &MpsSvc.State &" ; StartMode = " &MpsSvc.StartMode &Chr(10) & _
       "Themes : State = " &Themes.State &" ; StartMode = " &Themes.StartMode &Chr(10) & _
       "Windows Audio : State = " &AudioSrv.State &" ; StartMode = " &AudioSrv.StartMode , 0 , "Check Tool"
Case else
MsgBox "Error Select & Exit" , 0 , "Message"
End select

Unicode 補完計畫安裝修正&更新(BAT&VBS)

2009-11-11T17:24:00.005+09:00

2010/12/30 Update

INSTALL.BAT

TAKEOWN /F %WINDIR%\System32\C_950.NLS /A
CACLS %WINDIR%\System32\C_950.NLS /E /G Administrators:F
REN %WINDIR%\System32\C_950.NLS C_950.BAK
COPY C_950.NLS %WINDIR%\System32

INSTALL.VBS(VBS 版需將 C_950.NLS 和 INSTALL.VBS 置於桌面)

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim winnlspath , newnlspath , baknlspath
winnlspath = WshShell.ExpandEnvironmentStrings("%WINDIR%")&"\System32\C_950.NLS"
newnlspath = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Desktop\C_950.NLS"
baknlspath = WshShell.ExpandEnvironmentStrings("%WINDIR%")&"\System32\C_950.BAK"
If (fso.FileExists(winnlspath)) And (fso.FileExists(newnlspath)) Then
Return = WshShell.run("TAKEOWN /F %WINDIR%\System32\C_950.NLS /A" , 1 , True)
Return = WshShell.run("CACLS %WINDIR%\System32\C_950.NLS /E /G Administrators:F" , 1 , True)
fso.MoveFile winnlspath , baknlspath
If (fso.FileExists(baknlspath)) And (fso.FileExists(newnlspath)) Then
fso.CopyFile newnlspath , winnlspath
End If
Else
MsgBox "Can't Find C_950.NLS & Exit" , 0 , "Message"
WScript.Quit
End If

VBS License File & Product Key Install Tool

2009-11-07T01:13:00.008+09:00


Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim osselect , oempath , oemeespath
Dim pn(3)
Dim pk(3)
pn(0) = "Windows Vista (Ultimate)"
pn(1) = "Windows Server 2008 (Enterprise)"
pn(2) = "Windows 7 (Ultimate)"
pn(3) = "Windows Server 2008 R2 (Standard)"
pk(0) = "Product Key"
pk(1) = "Product Key"
pk(2) = "Product Key"
pk(3) = "Product Key"
oempath = "%USERPROFILE%\Desktop\OEM.XRM-MS"
oemeespath = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Desktop\OEM.XRM-MS"
MsgBox "UAC(User Account Control) : Never notify" &Chr(10) & _
       "OEM.XRM-MS On Desktop" &Chr(10) & _
       "BIOS Have SLIC(2.0:Vista&2008 2.1:7&2008 R2)" , 0 , "License File & Product Key Install Tool"
Do
osselect = InputBox("1 = " &pn(0) &Chr(10) & _
                    "2 = " &pn(1) &Chr(10) & _
                    "3 = " &pn(2) &Chr(10) & _
                    "4 = " &pn(3) &Chr(10) , "Select Windows Version (0 = Exit)" , "Input A Numeric For Your Choice")
Loop While IsNumeric(osselect) = flase
Select Case osselect
Case 0
Case 1
Call sharesetting
Return = WshShell.run("SLMGR.VBS -IPK " &pk(0) , 1 , True)
Case 2
Call sharesetting
Return = WshShell.run("SLMGR.VBS -IPK " &pk(1) , 1 , True)
Case 3
Call sharesetting
Return = WshShell.run("SLMGR.VBS -IPK " &pk(2) , 1 , True)
Case 4
Call sharesetting
Return = WshShell.run("SLMGR.VBS -IPK " &pk(3) , 1 , True)
Case else
MsgBox "Error Input & Exit" , 0 , "Message"
End select

Sub sharesetting
If (fso.FileExists(oemeespath)) Then
Return = WshShell.run("SLMGR.VBS -ILC " &oempath , 1 , True)
Else
MsgBox "Can't Find OEM.XRM-MS On Desktop & Exit" , 0 , "Message"
WScript.Quit
End If
Exit Sub
End Sub

Windows Server 2008 R2 & Windows 7 Settings

2009-11-07T00:57:00.007+09:00

Windows Server 2008 R2:
control userpasswords2 (lusrmgr.msc)
Administrative Tools -> Local Security Policy -> Account Policies -> Password Policy -> Maximum password age -> 0
Local Policies -> Security Options -> Interactive logon : Do not require CTRL+ALT+DEL -> Enabled
Server Manager -> Server Summary -> Computer information -> Do not show me this console at logon -> Selected
Security Information -> Configure IE ESC -> Administrators: -> Off
Users: -> Off
Features Summary -> Add Features -> Desktop Experience -> Selected
Wireless LAN Service -> Selected
Control Panel -> System -> Advanced system settings -> Advanced -> Performance Settings -> Visual Effects -> Adjust for best appearance
Advanced -> Processor scheduling -> Programs
Date Execution Prevention -> Turn on DEP for essential Windows programs and services only
gpedit.msc -> Computer Configuration -> Administrative Templates -> System -> Display Shutdown Event Tracker -> Disabled
services.msc -> Themes -> Automatic
Windows Audio -> Automatic
HKEY_LOCAL_MACHINE -> SOFTWARE -> Microsoft -> Windows NT -> CurrentVersion -> RegisteredOwner
RegisteredOrganization

Windows 7:
Control Panel -> AutoPlay -> Use AutoPlay for all mdeia and devices -> Not selected
Notification Area Icons -> Turn system icons on or off -> Action Center -> Off
Power Options -> Balanced(recommended) -> Change plan settings -> Change advanced power settings -> Display -> Turn off display after -> Setting: Nerver(0)
Hard disk -> Turn off hard disk after -> Setting: Nerver(0) [X]WS2008R2[X]
Sleep -> Sleep after -> Setting: Nerver(0) [X]WS2008R2[X]
POWERCFG -H OFF
System -> Advanced system settings -> System Protection -> Configure -> Turn off system protection [X]WS2008R2[X]
Remote -> Allow Remote Assistance connections to this computer -> Not selected [X]WS2008R2[X]
User Accounts -> Change User Account Control settings -> Never notify
Folder Options -> View -> Advanced settings -> Hidden files and folders -> Show hidden files, folders, and drives
Hide extensions for known file types -> Not selected
Hide protected operating system files (Recommended) -> Not selected
Launch folder windows in a separate process -> Selected
Show encrypted or compressed NTFS files in color -> Not selected
Use Sharing Wizard (Recommended) -> Not selected
services.msc -> Security Center -> Disabled [X]WS2008R2[X]
Windows Defender -> Disabled
Windows Firewall -> Disabled
taskschd.msc -> Task Scheduler (Local) -> Task Scheduler Library -> Microsoft -> Windows -> Defrag -> ScheduledDefrag -> Disabled
Maintenance -> WinSAT -> Disabled [X]WS2008R2[X]

VBS Service Settings Tool

2009-11-07T00:55:00.009+09:00


Set WshShell = WScript.CreateObject("WScript.Shell")
Dim osselect
MsgBox "Disabled :" &Chr(10) & _
       "Security Center (Windows 7)" &Chr(10) & _
       "Windows Defender" &Chr(10) & _
       "Windows Firewall" &Chr(10) & _
       "Automatic :" &Chr(10) & _
       "Themes (Windows Server 2008 R2)" &Chr(10) & _
       "Windows Audio (Windows Server 2008 R2)" , 0 , "Service Setting Tool"
Do
osselect = InputBox("1 = Windows 7" &Chr(10) & _
                    "2 = Windows Server 2008 R2" , "Select Windows Version (0=Exit)" , "Input A Numeric For Your Choice")
Loop While IsNumeric(osselect) = Flase
Select Case osselect
Case 0
Case 1
Return = WshShell.run("sc config wscsvc start= disabled" , 1 , True) ' %COMSPEC% /k(/c)
Call sharesetting
Case 2
Return = WshShell.run("sc config Themes start= auto" , 1 , True)
Return = WshShell.run("sc config AudioSrv start= auto" , 1 , True)
Call sharesetting
Case else
MsgBox "Error Select & Exit" , 0 , "Message"
End select

Sub sharesetting
Return = WshShell.run("sc config WinDefend start= disabled" , 1 , True)
Return = WshShell.run("sc config MpsSvc start= disabled" , 1 , True)
Exit Sub
End Sub

VBS RegisteredOwner&Organization Tool

2009-11-07T00:53:00.002+09:00


Set WshShell = WScript.CreateObject("WScript.Shell")
Dim RegisteredOwner , RegisteredOrganization
RegisteredOwner = InputBox("Input Registered Owner" , "Message" , "Belldandy")
RegisteredOrganization = InputBox("Input Registered Organization" , "Message" , "Syaorin")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner" , RegisteredOwner , "REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization" , RegisteredOrganization , "REG_SZ"