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

[mini]

以前在WinXP+VB6 時有接觸過螢幕截圖
找了一下還蠻單純的

使用三個 WinAPI
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long

程式碼:

PHP 語法:

Private Sub mCopyScreen_Click()

    Dim hDC As Long, sx As Integer, sy As Integer
    
    Me.Hide
    DoEvents    ' 若不執行此一敘述，可讓 Me.Hide 不會即時被執行
    
    picCopy.Width = Screen.Width
    picCopy.Height = Screen.Height
    
    picCopy.AutoRedraw = True
    
    ' 圖像的轉移
    hDC = GetDC(0)                              ' 取得螢幕DC
    sx = Screen.Width \ Screen.TwipsPerPixelX   ' 螢幕寬度(以Pixel為單位)
    sy = Screen.Height \ Screen.TwipsPerPixelY  ' 螢幕高度(以Pixel為單位)
    ' 將螢幕DC的圖像轉移到名稱為picCopy的PictureBox中
    BitBlt picCopy.hDC, 0, 0, sx, sy, hDC, 0, 0, vbSrcCopy
    ReleaseDC 0, hDC                            ' 釋放螢幕DC
    
    picCopy.AutoRedraw = False
    
    SetPicture      ' 設定 PictureBox 與捲動軸之間的關係
    Me.Show

End Sub 


(試了一下在Windows 10依舊可執行)

只要看得懂要翻譯成C/C++應該很簡單

HyperSnap 除了截圖
就是喜好他的畫箭頭與文字框
拿來製作簡單的說明用圖解很好用
不過覺得要用向量製圖還是首推
Corel Draw 或 Adobe Illustrator
只是屬於大型套裝軟體開啟速度不如HyperSnap
所以目前還是偏好HyperSnap

[魔術王子]

有這麼好用的語法喔
這是用vb 2008完全不用引用API

PHP 語法:

        Me.Hide()
        Dim dt As Double = My.Computer.Clock.TickCount
        While My.Computer.Clock.TickCount - dt < 1000
            My.Application.DoEvents()
        End While
        Dim g As Graphics
        Dim bmp As Bitmap
        bmp = New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        g = Graphics.FromImage(bmp)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height))
        g.Dispose()
        'Dim i As Integer = 1
        'While (My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\ToyAide" & i & ".jpg"))
        ' i += 1
        ' End While
        ' bmp.Save(My.Computer.FileSystem.SpecialDirectories.Desktop & "\ToyAide" & i & ".jpg")
        'PictureBox1.Image = bmp
        Me.Show()
        PictureBox1.Image = bmp 


當然這是從網路上找到的,另外.NET還有圖片翻轉功能

PHP 語法:

        If PictureBox1.Image IsNot Nothing Then
            Dim Img As Image = PictureBox1.Image
            Img.RotateFlip(RotateFlipType.Rotate270FlipNone)
            PictureBox1.Image = Img
            Img = Nothing
            ImageSize()
        End If 


再附加尺寸縮小語法

PHP 語法:

        ' If My.Computer.Clipboard.ContainsImage Then
        ' Get the scale factor.
        Dim scale_factor As Single = 0.5 'Single.Parse(txtScale.Text)

        ' Get the source bitmap.
        Dim bm_source As New Bitmap(PictureBox1.Image)

        ' Make a bitmap for the result.
        Dim bm_dest As New Bitmap(CInt(bm_source.Width * scale_factor), CInt(bm_source.Height * scale_factor))

        ' Make a Graphics object for the result Bitmap.
        Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)

        ' Copy the source image into the destination bitmap.
        gr_dest.DrawImage(bm_source, 0, 0, bm_dest.Width + 1, bm_dest.Height + 1)

        ' Display the result.
        ' My.Computer.Clipboard.SetImage(bm_dest)
        ' PictureBox1.Image = My.Computer.Clipboard.GetImage
        'PictureBox1.Image = bm_dest
        '  End If
        PictureBox1.Image = bm_dest
        ImageSize() 


[魔術王子]

這是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 通訊錄下載聯絡人即可。

[魔術王子]

作者: ppp0600

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

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

[getter]

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

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