灌水 - 一個簡單到只要隨便"估狗"都可以免費下載的程式

[魔術王子]

這是BCB用API的程式碼而且還利用GetCursorInfo()取得游標資訊,加入游標,這部分在.NET還找不到程式碼

PHP 語法:

    ShowWindow(Application->Handle,SW_HIDE);
    ShowWindow(Handle,SW_HIDE);
  //  Application->ProcessMessages();
    DWORD bt;
    bt=GetTickCount();
    do {
      Application->ProcessMessages();
    } while (GetTickCount()-bt<(Edit2->Text.ToInt()*1000));
    HDC ScrDC;
    TRect R;
    HWND Wnd=GetDesktopWindow();
    ScrDC=GetWindowDC(Wnd);
    GetWindowRect(Wnd, &R);
    ImageBmp->Width = R.right;
    ImageBmp->Height = R.bottom;
    BitBlt(ImageBmp->Canvas->Handle, 0, 0, R.right, R.bottom, ScrDC, 0, 0, SRCCOPY);
    if(CheckBox1->Checked){
      CURSORINFO ci;
      ci.cbSize=sizeof(CURSORINFO);
      GetCursorInfo(&ci);
      POINT pt;
      GetCursorPos(&pt);
      DrawIcon(ImageBmp->Canvas->Handle, pt.x, pt.y, ci.hCursor);
    }
    ReleaseDC(Wnd, ScrDC);
    float sf=(float)ImageBmp->Width/(float)ScrollBox1->ClientRect.right;
    Image1->Width=ImageBmp->Width/sf;
    Image1->Height=ImageBmp->Height/sf;
    Image1->Picture->Assign(ImageBmp);
    Image1->Refresh();
    ShowWindow(Application->Handle,SW_NORMAL);
    ShowWindow(Handle,SW_NORMAL); 


[mini]

抓游標?
取得游標的座標後
再把 游標的圖 事後合成上去就可以了
(應該是這樣...?)

[魔術王子]

作者: mini

抓游標?
取得游標的座標後
再把 游標的圖 事後合成上去就可以了
(應該是這樣...?)

我這兩天使用HyperSnap後發現,HyperSanap一啟動會先將剪貼簿清除
然後監視剪貼簿,只要有人按下PrtScr鍵,程式就會將資料取出,加入游標,顯示出來
或將自己隱藏,重新擷取畫面,加入游標
因為程式是"執行中",所以不需要將資料再存回剪貼簿

[ppp0600]

想請問可有簡單的網頁版通訊錄管理

[不飛]

作者: ppp0600

想請問可有簡單的網頁版通訊錄管理

Gmail 通訊錄就口已的啦.....

安卓手機 換機換號 不用煩惱，直接從 Gmail 通訊錄下載聯絡人即可。

[superxboy]

我都用PicPick來截圖...可以設定截取游標

[getter]

作者: superxboy

我都用PicPick來截圖...可以設定截取游標

很多都可以吧 ... 迪西用的那套也可以，只不過迪西設定是取消的

好幾種相比，FastStone Capture 免費版的程式容量不大 ...

像是股溝軟體的還有結合「雲端」... 抓玩直接上傳 ... 而外附帶相片管理

另外有幾家的是，抓成動畫檔兼錄音加字幕 ... 格式有 AVI 或是 SWF 或是 GIF 格式

... 哪種好用 ... 能達到目的解決問題的就是好用 ...

[mini]

如果將BitBlt 改成 StretchBlt
就可以翻轉 與 縮放

Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

以下是將WinAPI與.NET的畫布概念之混和修改

PHP 語法:

   Private Declare Function GetDC Lib "user32" (ByVal hWnd As Integer) As Integer
   Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Integer, ByVal hDC As Integer) As Integer
   Private Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal nSrcWidth As Integer, ByVal nSrcHeight As Integer, ByVal dwRop As Integer) As Integer

Private Enum TernaryRasterOperations As UInteger
        ''' <summary>dest = source</summary>
        SRCCOPY = &HCC0020
        ''' <summary>dest = source OR dest</summary>
        SRCPAINT = &HEE0086
        ''' <summary>dest = source AND dest</summary>
        SRCAND = &H8800C6
        ''' <summary>dest = source XOR dest</summary>
        SRCINVERT = &H660046
        ''' <summary>dest = source AND (NOT dest)</summary>
        SRCERASE = &H440328
        ''' <summary>dest = (NOT source)</summary>
        NOTSRCCOPY = &H330008
        ''' <summary>dest = (NOT src) AND (NOT dest)</summary>
        NOTSRCERASE = &H1100A6
        ''' <summary>dest = (source AND pattern)</summary>
        MERGECOPY = &HC000CA
        ''' <summary>dest = (NOT source) OR dest</summary>
        MERGEPAINT = &HBB0226
        ''' <summary>dest = pattern</summary>
        PATCOPY = &HF00021
        ''' <summary>dest = DPSnoo</summary>
        PATPAINT = &HFB0A09
        ''' <summary>dest = pattern XOR dest</summary>
        PATINVERT = &H5A0049
        ''' <summary>dest = (NOT dest)</summary>
        DSTINVERT = &H550009
        ''' <summary>dest = BLACK</summary>
        BLACKNESS = &H42
        ''' <summary>dest = WHITE</summary>
        WHITENESS = &HFF0062
    End Enum

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim hDC As Integer, sx As Integer, sy As Integer

        Me.Hide()

        PictureBox1.Width = My.Computer.Screen.WorkingArea.Width
        PictureBox1.Height = My.Computer.Screen.WorkingArea.Height

        hDC = GetDC(0) ' 取得螢幕DC
        sx = PictureBox1.Width
        sy = PictureBox1.Height

        Dim g As Graphics = PictureBox1.CreateGraphics
        Dim bmp As Bitmap = New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height) '記憶體圖空間
        g = Graphics.FromImage(bmp) '畫布

        ' 將螢幕DC的圖像轉移到PictureBox1
        StretchBlt(g.GetHdc, 0, 0, sx, sy, hDC, 0, 0, sx, sy, TernaryRasterOperations.SRCCOPY) 'PictureBox1.CreateGraphics.GetHdc
        PictureBox1.Image = bmp
        PictureBox1.Update() '不更新就不會顯示出來
        '釋放資源
        ReleaseDC(0, hDC)
        g.ReleaseHdc()

        Me.Show()

    End Sub 


[ppp0600]

作者: 不飛

Gmail 通訊錄就口已的啦.....

安卓手機 換機換號 不用煩惱，直接從 Gmail 通訊錄下載聯絡人即可。

其實我是想弄個網頁版給一個社群的人使用，只是不會寫程式，也想不到辦法

[魔術王子]

作者: ppp0600

想請問可有簡單的網頁版通訊錄管理

為了脫離電腦領域,只要跟網頁有關的程式設計小弟一概不碰

[getter]

作者: 魔術王子

為了脫離電腦領域,只要跟網頁有關的程式設計小弟一概不碰

為了脫離電腦領域，迪西一律說「我只會玩，不會修。要修電腦請找電腦公司。」

[魔術王子]

作者: getter

為了脫離電腦領域，迪西一律說「我只會玩，不會修。要修電腦請找電腦公司。」

在公司這樣說就準備走路啦

[superxboy]

作者: getter

為了脫離電腦領域，迪西一律說「我只會玩，不會修。要修電腦請找電腦公司。」

迪西讓我想起以前大學女同學

來找我重灌電腦...說給你重灌電腦不錯喔...重灌一次可以兩三年重灌一次

我對她說...你只有重灌才會出現在我家

結果她回...我們不是朋友嗎

兩三年才見一次...重灌完就拿回家看韓劇...那次重灌後...我就叫她別來找我了

[getter]

迪西都用 FSCapture 免費版的說 ...，該有的功能都有 ...

DOS 時代則是用遊戲修改工具內附的抓圖工具 ...