Craftlaunchを応援しよう！
691 ：名無し~3.EXE：
あげ
|
|
|
<<< TRNSLT.CAB for ALL-OS ( use jis7 ish ) [ 35 lines ] >>>
!!!=!(gR!2"DRo?5k/@=\+$pR6/bP'$mP'KjCT!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-:3x
!!!=!(gR!2"DRo?5k/@=\+$pR6/bP'$mP'KjCT!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-:3x
!!!=!(gR!2"DRo?5k/@=\+$pR6/bP'$mP'KjCT!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-:3x
"WW74[!$!!P""-!!!!!!gR!"!!!!!!&7->!!!$!C?/!E!!!&!!!!!!!!!!!!6s!!-:!!!"n]!!!!'f
$!!!!!!!-{P|D!!3a<E9HaXxud<0P*0*!!?O!%!!!!e)xYQ$P"K5KL,0hRAb*1SN'(GxBpmC&2MvM-
%SS3^vo%r\Jm%VI@y7Rnd4?zvXcq!gh?&}Jy*,qm+0WcpqTabOd)wzf&l6,!$uga-$[f"Xe(ubf^$%
&/DCHFz<[;-QW\^)Pm'Zv$^/cE>Wi,)SytlHL}c|^[k@4cZQ{,fl|:rGiRZOnAz{vxq,_pq5Bk;i(V
'O9>H!Lh8/ZtkG>m\;H85Tt%8t{vn8siXji$r%{&$uWA<uSLQ@DIuEzagEQCaUp|x6UDgT5{>DcH%*
(Gabwf|T"Ah5'E5tYI0|fqdUx6fNzm>HxjsR4,X(@?]m6<wyMG=4I/w~O]9>@!]q5|9q7*;=]XJp0t
)*A2*mzT!wdMJLdjx&C!&\_-@Si$y[?ui$jLcmhbqolzHz{\s'9OqEatrTzqx-98NL9Zx'Zu(%"h1V
*C^)Jh(61b&OgBqoXg;}3ODQr8w5N0Awk\s~]a:%/*,eT<UYcDr$9>wb!-])oU2xL8Yq$eZu\r2x%{
+KY]q"{QrGydJe{,}-[TcVr${,=]_ks&NNfDXCn={x_RxV|LFQvMX+>kihF"_FeCx+!Qzz)jVh[L8B
,C!\'PV0m\_~'7iQ]6w}r\8eo)My=D9&:N0LXt;6'zl@j*^k0LPec_0C'XkX&Z{53Qp}|YO6laZK/X
-[ccYw"q[ftNzbb<*[rg;1?;re&3dR}<?rn5s(u~B|ctXmGdkf%b@jBBBJR]=K60]D0j3Ub2B\W=2{
/*56/)8J5'}|z(\F5qS%Go_kbm<mC5X|sPNUx3b&D>meb:r@bG)RgPKExjPV(B!:^H;[DjdJ6@t?!&
0W5M2crfo)AMEAWzm_]k<]W@:JA4Lb=:HQdFJUKFna^^;!yn%0_DYdviY!hp+pA-6zp7J{uTw;v!8V
!!!=!(gR!2"DRo?5k/@=\+$pR6/bP'$mP'KjCT!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-:3x
!!!=!(gR!2"DRo?5k/@=\+$pR6/bP'$mP'KjCT!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-:3x
!!!=!(gR!2"DRo?5k/@=\+$pR6/bP'$mP'KjCT!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-:3x
"WW74[!$!!P""-!!!!!!gR!"!!!!!!&7->!!!$!C?/!E!!!&!!!!!!!!!!!!6s!!-:!!!"n]!!!!'f
$!!!!!!!-{P|D!!3a<E9HaXxud<0P*0*!!?O!%!!!!e)xYQ$P"K5KL,0hRAb*1SN'(GxBpmC&2MvM-
%SS3^vo%r\Jm%VI@y7Rnd4?zvXcq!gh?&}Jy*,qm+0WcpqTabOd)wzf&l6,!$uga-$[f"Xe(ubf^$%
&/DCHFz<[;-QW\^)Pm'Zv$^/cE>Wi,)SytlHL}c|^[k@4cZQ{,fl|:rGiRZOnAz{vxq,_pq5Bk;i(V
'O9>H!Lh8/ZtkG>m\;H85Tt%8t{vn8siXji$r%{&$uWA<uSLQ@DIuEzagEQCaUp|x6UDgT5{>DcH%*
(Gabwf|T"Ah5'E5tYI0|fqdUx6fNzm>HxjsR4,X(@?]m6<wyMG=4I/w~O]9>@!]q5|9q7*;=]XJp0t
)*A2*mzT!wdMJLdjx&C!&\_-@Si$y[?ui$jLcmhbqolzHz{\s'9OqEatrTzqx-98NL9Zx'Zu(%"h1V
*C^)Jh(61b&OgBqoXg;}3ODQr8w5N0Awk\s~]a:%/*,eT<UYcDr$9>wb!-])oU2xL8Yq$eZu\r2x%{
+KY]q"{QrGydJe{,}-[TcVr${,=]_ks&NNfDXCn={x_RxV|LFQvMX+>kihF"_FeCx+!Qzz)jVh[L8B
,C!\'PV0m\_~'7iQ]6w}r\8eo)My=D9&:N0LXt;6'zl@j*^k0LPec_0C'XkX&Z{53Qp}|YO6laZK/X
-[ccYw"q[ftNzbb<*[rg;1?;re&3dR}<?rn5s(u~B|ctXmGdkf%b@jBBBJR]=K60]D0j3Ub2B\W=2{
/*56/)8J5'}|z(\F5qS%Go_kbm<mC5X|sPNUx3b&D>meb:r@bG)RgPKExjPV(B!:^H;[DjdJ6@t?!&
0W5M2crfo)AMEAWzm_]k<]W@:JA4Lb=:HQdFJUKFna^^;!yn%0_DYdviY!hp+pA-6zp7J{uTw;v!8V
1GA)T:UeI^]aA4oJ6g%A5GF;QDJP}R<661BQY@+3z'zZg'n;Ik,;LKpYnJI&Y7TS1ftT|V[DLF'"A8
2?G=aT,NR7h&1=e?0&[QkY?XwBFW)0,hwvD'EDxxL>Sg"{*TEU3v$V%Jlzi4HzR>blRtl+wvj=c*2/
3S!]OM*CiJtCf[u_nu\j_L=nr^<-EDoCRAd=TB2+B@>pT}:$\+gU|q+7y~g[<g<Fg~oiXN>%h{Xm7h
47*)EF=76nU?={:C<Om:@1(SO~!U*i6<>!m:ip@X%%'F0@B4x&1r*wU%WJjscUc:t+WmQjy~M;g|({
5WI4$GuA1rSI:h:j{9[uFuVwMI2m!ulJf?S1*$Gi[T;/S/58R|0XyH)kFRjbIe9VDLGTS>OoW=ueBI
67/4PT0~,(D|c|dVL,'z!cE{$)@)mSJMyb^C0fsNTy4PYRv*E1"\J"d;S[P^aR@?l_uvP?91{l1r?R
7&%KtBJ0VTF^ynTRHAe/Jm;4NFkWabmh!}%r|?CtYuQ,D}b)0Ox(?J-tBUk:K%7[Cn3W%vunVUv-O0
8OS%[g=t5{\{A8;;(M%&7M%Gdy^Jmp%g]?HRQKGhh19aEa=wNUfARZG,6JdHVcYyLc7f&%}3bCv,+W
9!8Npbt"^A;l5\Cp33O@?_3Bb-j"ef:X[3:js;9!&$1N1^nMB>d'YYpt$pWqQ6c[7CS&obXu]H&v<$
:&7Q?xN\?]%nD=w(T3+L$0=gXpZga9iko}\BB0<W2_ArB>0^+"cI1m;1gnDPcaW9C^]-GWXJQbxLEL
;/*:mb2:YAnq;<3')6[KU_/Mg6zAuqAhgm<&2s7,(/W>k"QLp$&=+24F\o4R;(,96Asp4+ajbUJB0L
<&+,M|jnwXllca=hsI'8i6h<'%iCUtB^uq%c$;zfGp1Gu;r<}\<-'"6EWW1BgB8p0-<v@~rASU*~2;
=GIK0;Y55\G':|6(\,/V7KH1fO)1OL;E%K)x>1Vw[~Ql4aEqz+1XPp&XMCL~+jSdF\Z)Ek/7F[ZT2<
>W7KWm|x\rf,yvze;uUKw,"8{vb&96mB{~LyAzj=hJmKP~,F>Ma})|VT-~rK{G)&WUqXC[*411e=GX
?&X,Cp/j4|c@GrDx5/jhT]'t$m-J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!au@K
aS"4acu-/CZ]5/OoiHvnJst88CW"Q@{3JgW>tv<TZ*5%!E097aOMF2(g\C5tvQ$kN<x!tG}A!G*z-m
c&F1S]|2Zz)uae-w{?}TF[1!@MvW4xdouKo~T>88K1/>oGj|1H%~_FzuTfj6-~{>jWps2$VK}G!^=>
--- TRNSLT.CAB (35/35) ---
2?G=aT,NR7h&1=e?0&[QkY?XwBFW)0,hwvD'EDxxL>Sg"{*TEU3v$V%Jlzi4HzR>blRtl+wvj=c*2/
3S!]OM*CiJtCf[u_nu\j_L=nr^<-EDoCRAd=TB2+B@>pT}:$\+gU|q+7y~g[<g<Fg~oiXN>%h{Xm7h
47*)EF=76nU?={:C<Om:@1(SO~!U*i6<>!m:ip@X%%'F0@B4x&1r*wU%WJjscUc:t+WmQjy~M;g|({
5WI4$GuA1rSI:h:j{9[uFuVwMI2m!ulJf?S1*$Gi[T;/S/58R|0XyH)kFRjbIe9VDLGTS>OoW=ueBI
67/4PT0~,(D|c|dVL,'z!cE{$)@)mSJMyb^C0fsNTy4PYRv*E1"\J"d;S[P^aR@?l_uvP?91{l1r?R
7&%KtBJ0VTF^ynTRHAe/Jm;4NFkWabmh!}%r|?CtYuQ,D}b)0Ox(?J-tBUk:K%7[Cn3W%vunVUv-O0
8OS%[g=t5{\{A8;;(M%&7M%Gdy^Jmp%g]?HRQKGhh19aEa=wNUfARZG,6JdHVcYyLc7f&%}3bCv,+W
9!8Npbt"^A;l5\Cp33O@?_3Bb-j"ef:X[3:js;9!&$1N1^nMB>d'YYpt$pWqQ6c[7CS&obXu]H&v<$
:&7Q?xN\?]%nD=w(T3+L$0=gXpZga9iko}\BB0<W2_ArB>0^+"cI1m;1gnDPcaW9C^]-GWXJQbxLEL
;/*:mb2:YAnq;<3')6[KU_/Mg6zAuqAhgm<&2s7,(/W>k"QLp$&=+24F\o4R;(,96Asp4+ajbUJB0L
<&+,M|jnwXllca=hsI'8i6h<'%iCUtB^uq%c$;zfGp1Gu;r<}\<-'"6EWW1BgB8p0-<v@~rASU*~2;
=GIK0;Y55\G':|6(\,/V7KH1fO)1OL;E%K)x>1Vw[~Ql4aEqz+1XPp&XMCL~+jSdF\Z)Ek/7F[ZT2<
>W7KWm|x\rf,yvze;uUKw,"8{vb&96mB{~LyAzj=hJmKP~,F>Ma})|VT-~rK{G)&WUqXC[*411e=GX
?&X,Cp/j4|c@GrDx5/jhT]'t$m-J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!au@K
aS"4acu-/CZ]5/OoiHvnJst88CW"Q@{3JgW>tv<TZ*5%!E097aOMF2(g\C5tvQ$kN<x!tG}A!G*z-m
c&F1S]|2Zz)uae-w{?}TF[1!@MvW4xdouKo~T>88K1/>oGj|1H%~_FzuTfj6-~{>jWps2$VK}G!^=>
--- TRNSLT.CAB (35/35) ---
>>692-693
何これ？
何これ？
695 ：名無し~3.EXE：01/12/18 01:29
http://www.vector.co.jp/soft/winnt/net/se099336.html
から http get を入手、解凍後、httpget.exe を適当なフォルダに入れておく
Translate.vbs の 6行目、 cmd_httpget = "..." に httpget.exe のフルパスを記入。
例)
C:\Windows に httpget.exe が入ってる場合、Translate.exe の6行目は
cmd_httpget = "C:\Windows\httpget.exe"
Wscript.exe(Windowsに標準付属) に Translate.vbs をフルパスで渡し、更に /jaen
または /enja に続けて文章を渡すとExcite翻訳し、メッセージボックスを表示します。
例)
Translate.vbs を C:\My Documents に保存してある場合は
Wscrpt.exe "C:\My Documents\Translate.vbs" /jaen 文章・・・
で日本語→英語
Wscrpt.exe "C:\My Documents\Translate.vbs" /enja Text...
で英語→日本語
例えば CraftLaunch に登録する場合は
Name: JAEN
Link: Wscript.exe
Arg: "C:\My Documents\Translate.vbs" /jaen %arg
Folder: (空)
とか。
から http get を入手、解凍後、httpget.exe を適当なフォルダに入れておく
Translate.vbs の 6行目、 cmd_httpget = "..." に httpget.exe のフルパスを記入。
例)
C:\Windows に httpget.exe が入ってる場合、Translate.exe の6行目は
cmd_httpget = "C:\Windows\httpget.exe"
Wscript.exe(Windowsに標準付属) に Translate.vbs をフルパスで渡し、更に /jaen
または /enja に続けて文章を渡すとExcite翻訳し、メッセージボックスを表示します。
例)
Translate.vbs を C:\My Documents に保存してある場合は
Wscrpt.exe "C:\My Documents\Translate.vbs" /jaen 文章・・・
で日本語→英語
Wscrpt.exe "C:\My Documents\Translate.vbs" /enja Text...
で英語→日本語
例えば CraftLaunch に登録する場合は
Name: JAEN
Link: Wscript.exe
Arg: "C:\My Documents\Translate.vbs" /jaen %arg
Folder: (空)
とか。
Tranrate (・∀・)ｲｲ!
Tranｌate (・∀・)ｲｲ!
698 ：名無し~3.EXE：01/12/19 08:37
699 ：698：01/12/19 08:41
Ctrl+Cで出来た
鬱田汁脳
鬱田汁脳
700 ：名無し~3.EXE：01/12/19 09:51
ish解凍するのメンドクサと思ったらめっさ良いじゃんこれ。感謝感謝。
でもノートン先生が反応したんでちょっとビビッタ。
でもノートン先生が反応したんでちょっとビビッタ。
701 ：名無し~3.EXE：01/12/19 10:12
anemoneで使えるね
サンクス
サンクス
すみません、意味が分からないです。なんか凄そうですが
その凄さのおこぼれを私にも分けてもらえないでしょうか（ｗ
Translate.vbs というのと、暗号みたいなやつがよくわかりません。
暗号文をテキストエディタでTranslate.vbsで保存、かと思ったん
ですが、cmd_httpget = というのが出てきませんし。
その凄さのおこぼれを私にも分けてもらえないでしょうか（ｗ
Translate.vbs というのと、暗号みたいなやつがよくわかりません。
暗号文をテキストエディタでTranslate.vbsで保存、かと思ったん
ですが、cmd_httpget = というのが出てきませんし。
まず >>692-693 の本文だけをくっ付けて、適当な名前で保存。
<<< TRNSLT.CAB for ALL-OS ( use jis7 ish ) [ 35 lines ] >>>
から
--- TRNSLT.CAB (35/35) ---
までです。
IEでコピペするとき、行末に半角スペースが入るかも知れないから
それらは削除ね。
後、保存するとき拡張子は .ish にしたほうがいいかも。
で、この ish を解凍できる環境が必要なんですが、
有名どころでは RarUty ＋ ISH32.DLL の組み合わせで可能のようです。
無事解凍できれば TRNSLT.CAB ってのが出来るので、これも解凍して
ください。( CAB32.DLL が必要かも )
この中に Translate.vbs と Readme.txt って2つのファイルが入ってて、
>>695 は Readme.txt の内容です。
<<< TRNSLT.CAB for ALL-OS ( use jis7 ish ) [ 35 lines ] >>>
から
--- TRNSLT.CAB (35/35) ---
までです。
IEでコピペするとき、行末に半角スペースが入るかも知れないから
それらは削除ね。
後、保存するとき拡張子は .ish にしたほうがいいかも。
で、この ish を解凍できる環境が必要なんですが、
有名どころでは RarUty ＋ ISH32.DLL の組み合わせで可能のようです。
無事解凍できれば TRNSLT.CAB ってのが出来るので、これも解凍して
ください。( CAB32.DLL が必要かも )
この中に Translate.vbs と Readme.txt って2つのファイルが入ってて、
>>695 は Readme.txt の内容です。
704 ：名無し~3.EXE：01/12/20 00:58
705 ：名無し~3.EXE：01/12/20 01:46
>>704
ダイアログにフォーカスがあるときにCtrl+Cでこんなのでない？
---------------------------
Translate.vbs
---------------------------
明日
Tomorrow
---------------------------
OK
---------------------------
ダイアログにフォーカスがあるときにCtrl+Cでこんなのでない？
---------------------------
Translate.vbs
---------------------------
明日
Tomorrow
---------------------------
OK
---------------------------
706 ：名無し~3.EXE：01/12/20 02:57
>>704じゃないけど、コピーできない…
翻訳結果はちゃんと出るんだけど。
翻訳結果はちゃんと出るんだけど。
707 ：699,705：01/12/20 03:20
もしかしたらWscript.exeのバージョンかも。
うちはXP付属の 5.6.0.6626
ちょっと感化されて、弄っただけだけどWSP書いてみたYO!
<< ここからコピー >>
Dim Count,Args,Prm
Count = WScript.Arguments.Count
If Count < 1 Then
MsgBox WScript.ScriptName + " [ shutdown | reboot | logoff ] ",vbOkOnly & vbInformation,"使用方法"
WScript.Quit
End If
Args = WScript.Arguments.Item(0)
If Args = "shutdown" Then
Prm = "8"
ElseIf Args = "reboot" Then
Prm = "2"
ElseIf Args = "logoff" Then
Prm = "0"
Else
MsgBox "引数が間違っています ",vbOkOnly & vbExclamation,"不明な引数"
WScript.Quit
End If
Set objSystemSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").InstancesOf("Win32_OperatingSystem")
For Each objSystem In objSystemSet
objSystem.Win32Shutdown Prm
Next
WScript.Quit
<< ここまでコピー >>
うちはXP付属の 5.6.0.6626
ちょっと感化されて、弄っただけだけどWSP書いてみたYO!
<< ここからコピー >>
Dim Count,Args,Prm
Count = WScript.Arguments.Count
If Count < 1 Then
MsgBox WScript.ScriptName + " [ shutdown | reboot | logoff ] ",vbOkOnly & vbInformation,"使用方法"
WScript.Quit
End If
Args = WScript.Arguments.Item(0)
If Args = "shutdown" Then
Prm = "8"
ElseIf Args = "reboot" Then
Prm = "2"
ElseIf Args = "logoff" Then
Prm = "0"
Else
MsgBox "引数が間違っています ",vbOkOnly & vbExclamation,"不明な引数"
WScript.Quit
End If
Set objSystemSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").InstancesOf("Win32_OperatingSystem")
For Each objSystem In objSystemSet
objSystem.Win32Shutdown Prm
Next
WScript.Quit
<< ここまでコピー >>
708 ：706：01/12/20 03:38
>>708
Win98以降は5.6が使える
http://www.microsoft.com/downloads/release.asp?ReleaseID=33248
ここの scr56jp.exe ね
ちなみにWin95だと5.5までらしい
http://www.asia.microsoft.com/msdownload/vbscript/scripting.asp?id=25
Win98以降は5.6が使える
http://www.microsoft.com/downloads/release.asp?ReleaseID=33248
ここの scr56jp.exe ね
ちなみにWin95だと5.5までらしい
http://www.asia.microsoft.com/msdownload/vbscript/scripting.asp?id=25
710 ：704：01/12/20 20:28
5.6.0.6626
711 ：704：01/12/20 20:29
ごめん上の失敗。
Win98で、wscript.exeを5.6.0.6626にバージョンアップしたけどコピーはできない。
OS依存なのかな？？
Win98で、wscript.exeを5.6.0.6626にバージョンアップしたけどコピーはできない。
OS依存なのかな？？
712 ：707：01/12/20 22:01
原因判明
XPはサポートをしやすくするために、
メッセージボックスなんかの文字をコピーできる機能があるみたい
コピー機能ほしいね
結果だけコピーできるやつ
XPはサポートをしやすくするために、
メッセージボックスなんかの文字をコピーできる機能があるみたい
コピー機能ほしいね
結果だけコピーできるやつ
Win2000でもコピーできたよ
a
ho
717 ：名無し~3.EXE：01/12/26 04:31
ba
va
kick
720 ：Kramer：01/12/27 11:55
出来ないと思ったら、パーソナルファイアーウォールが邪魔してた。
いい感じだね、これ。
いい感じだね、これ。
721 ：wshスレで勉強。単体で動きます：01/12/31 03:55
Dim objWS,objIE, sURL, mode,before,after, i
Set objWS = CreateObject("WScript.Shell")
sURL = "http://www.excite.co.jp/world/text/?wb_lp=%m&before=%b"
If WScript.Arguments.Count >= 2 Then
mode = UCase(Wscript.Arguments(0))
If Left(mode,1)="/" Then mode = Mid(mode,2,4)
For i = 1 To WScript.Arguments.Count-1
before = Trim(before & " " & Wscript.Arguments(i))
Next
End If
If (mode = "JAEN" Or mode = "ENJA") And before <> "" Then
Set objIE = WScript.CreateObject("InternetExplorer.Application","IE_")
With objIE
.Navigate2 Replace(Replace(sURL,"%m",mode),"%b",enc(before))
.Visible = False
While .Busy Or .ReadyState<>4
WScript.Sleep 200
Wend
after = .Document.World.after.Value
.Quit
End With
Set objIE = Nothing
objWS.Popup before & vbCrLf & vbCrLf & after,30,WScript.ScriptName
Else
objWS.Popup "Error in Commandline.",15,WScript.ScriptName
End If
WScript.Quit 0
Function enc(s)
Dim d
d = Replace(s,"%","%25")
d = Replace(d," ","%20")
d = Replace(d,"#","%23")
d = Replace(d,"&","%26")
d = Replace(d,"+","%2B")
d = Replace(d,";","%3B")
d = Replace(d,"=","%3D")
d = Replace(d,"?","%3F")
enc = d
End Function
Set objWS = CreateObject("WScript.Shell")
sURL = "http://www.excite.co.jp/world/text/?wb_lp=%m&before=%b"
If WScript.Arguments.Count >= 2 Then
mode = UCase(Wscript.Arguments(0))
If Left(mode,1)="/" Then mode = Mid(mode,2,4)
For i = 1 To WScript.Arguments.Count-1
before = Trim(before & " " & Wscript.Arguments(i))
Next
End If
If (mode = "JAEN" Or mode = "ENJA") And before <> "" Then
Set objIE = WScript.CreateObject("InternetExplorer.Application","IE_")
With objIE
.Navigate2 Replace(Replace(sURL,"%m",mode),"%b",enc(before))
.Visible = False
While .Busy Or .ReadyState<>4
WScript.Sleep 200
Wend
after = .Document.World.after.Value
.Quit
End With
Set objIE = Nothing
objWS.Popup before & vbCrLf & vbCrLf & after,30,WScript.ScriptName
Else
objWS.Popup "Error in Commandline.",15,WScript.ScriptName
End If
WScript.Quit 0
Function enc(s)
Dim d
d = Replace(s,"%","%25")
d = Replace(d," ","%20")
d = Replace(d,"#","%23")
d = Replace(d,"&","%26")
d = Replace(d,"+","%2B")
d = Replace(d,";","%3B")
d = Replace(d,"=","%3D")
d = Replace(d,"?","%3F")
enc = d
End Function