史萊姆論壇

返回   史萊姆論壇 > 綜合討論二區 > 生活話題、日常閒聊、喇勒唬爛灌水區
忘記密碼?
論壇說明

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』


發文 回覆
 
主題工具 顯示模式
舊 2017-06-28, 09:20 PM   #1 (permalink)
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:43 | 在線時長:2021小時 | 升級還需:91小時級別:43 | 在線時長:2021小時 | 升級還需:91小時級別:43 | 在線時長:2021小時 | 升級還需:91小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 3071
精華: 0
現金: 15318 金幣
資產: 2678958 金幣
預設

有這麼好用的語法喔
這是用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.WidthMy.Computer.Screen.Bounds.Height)
        
Graphics.FromImage(bmp)
        
g.CopyFromScreen(New Point(00), New Point(00), New Size(My.Computer.Screen.Bounds.WidthMy.Computer.Screen.Bounds.Height))
        
g.Dispose()
        
'Dim i As Integer = 1
        '
While (My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.Desktop "\ToyAide" ".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
() 
__________________
『唸金母心咒:嗡。金母。悉地。吽。』
持此咒者,可免一切瘟疫,一切瘟神抱頭四散。

魔術就是欣賞神奇的效果
如果魔術的秘密被破解了
那魔術就失去欣賞的價值
魔術王子 目前離線  
送花文章: 1542, 收花文章: 1584 篇, 收花: 3939 次
回覆時引用此帖
向 魔術王子 送花的會員:
mini (2017-06-28)
感謝您發表一篇好文章
舊 2017-06-28, 09:22 PM   #2 (permalink)
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:43 | 在線時長:2021小時 | 升級還需:91小時級別:43 | 在線時長:2021小時 | 升級還需:91小時級別:43 | 在線時長:2021小時 | 升級還需:91小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 3071
精華: 0
現金: 15318 金幣
資產: 2678958 金幣
預設

這是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->Handle00R.rightR.bottomScrDC00SRCCOPY);
    if(
CheckBox1->Checked){
      
CURSORINFO ci;
      
ci.cbSize=sizeof(CURSORINFO);
      
GetCursorInfo(&ci);
      
POINT pt;
      
GetCursorPos(&pt);
      
DrawIcon(ImageBmp->Canvas->Handlept.xpt.yci.hCursor);
    }
    
ReleaseDC(WndScrDC);
    
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); 
魔術王子 目前離線  
送花文章: 1542, 收花文章: 1584 篇, 收花: 3939 次
回覆時引用此帖
舊 2017-06-28, 11:09 PM   #3 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10194小時 | 升級還需:3小時級別:98 | 在線時長:10194小時 | 升級還需:3小時級別:98 | 在線時長:10194小時 | 升級還需:3小時級別:98 | 在線時長:10194小時 | 升級還需:3小時級別:98 | 在線時長:10194小時 | 升級還需:3小時級別:98 | 在線時長:10194小時 | 升級還需:3小時級別:98 | 在線時長:10194小時 | 升級還需:3小時級別:98 | 在線時長:10194小時 | 升級還需:3小時
註冊日期: 2002-12-07
文章: 13518
精華: 0
現金: 26923 金幣
資產: 3024853 金幣
預設

抓游標?
取得游標的座標後
再把 游標的圖 事後合成上去就可以了
(應該是這樣...?)
mini 目前離線  
送花文章: 2059, 收花文章: 8081 篇, 收花: 26937 次
回覆時引用此帖
向 mini 送花的會員:
魔術王子 (2017-06-29)
感謝您發表一篇好文章
舊 2017-06-29, 06:38 AM   #4 (permalink)
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:43 | 在線時長:2021小時 | 升級還需:91小時級別:43 | 在線時長:2021小時 | 升級還需:91小時級別:43 | 在線時長:2021小時 | 升級還需:91小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 3071
精華: 0
現金: 15318 金幣
資產: 2678958 金幣
預設

引用:
作者: mini 查看文章
抓游標?
取得游標的座標後
再把 游標的圖 事後合成上去就可以了
(應該是這樣...?)
我這兩天使用HyperSnap後發現,HyperSanap一啟動會先將剪貼簿清除
然後監視剪貼簿,只要有人按下PrtScr鍵,程式就會將資料取出,加入游標,顯示出來
或將自己隱藏,重新擷取畫面,加入游標
因為程式是"執行中",所以不需要將資料再存回剪貼簿
魔術王子 目前離線  
送花文章: 1542, 收花文章: 1584 篇, 收花: 3939 次
回覆時引用此帖
舊 2017-06-29, 11:10 AM   #5 (permalink)
長老會員
 
ppp0600 的頭像
榮譽勳章
UID - 19602
在線等級: 級別:72 | 在線時長:5537小時 | 升級還需:84小時級別:72 | 在線時長:5537小時 | 升級還需:84小時
註冊日期: 2002-12-30
住址: 混亂地獄
文章: 10330
精華: 0
現金: 489 金幣
資產: 238713720 金幣
預設

想請問可有簡單的網頁版通訊錄管理
ppp0600 目前離線  
送花文章: 26751, 收花文章: 7722 篇, 收花: 38435 次
回覆時引用此帖
向 ppp0600 送花的會員:
魔術王子 (2017-06-29)
感謝您發表一篇好文章
舊 2017-06-29, 11:49 AM   #6 (permalink)
論壇主管
 
不飛 的頭像
榮譽勳章
UID - 236817
在線等級: 級別:212 | 在線時長:45947小時 | 升級還需:274小時級別:212 | 在線時長:45947小時 | 升級還需:274小時級別:212 | 在線時長:45947小時 | 升級還需:274小時級別:212 | 在線時長:45947小時 | 升級還需:274小時級別:212 | 在線時長:45947小時 | 升級還需:274小時級別:212 | 在線時長:45947小時 | 升級還需:274小時級別:212 | 在線時長:45947小時 | 升級還需:274小時級別:212 | 在線時長:45947小時 | 升級還需:274小時級別:212 | 在線時長:45947小時 | 升級還需:274小時級別:212 | 在線時長:45947小時 | 升級還需:274小時級別:212 | 在線時長:45947小時 | 升級還需:274小時級別:212 | 在線時長:45947小時 | 升級還需:274小時
註冊日期: 2002-12-05
VIP期限: 無限期
住址: 鄭燮之板橋
文章: 14345
現金: 13161 金幣
資產: 2914062 金幣
預設

引用:
作者: ppp0600 查看文章
想請問可有簡單的網頁版通訊錄管理
Gmail 通訊錄就口已的啦.....

安卓手機 換機換號 不用煩惱,直接從 Gmail 通訊錄下載聯絡人即可。
__________________
不飛的不飛 ... 因為曾經端座在雲霄之上 ... 所以不飛 ,
因為期待您能與不飛抬頭共列翱翔天昊 ... 所以更是不飛 !

不飛不想飛 ... 畢竟殘破雙翼在苔階沾濕 ... 所以低頭 ,
只好安靜地蹲在這練習 ... 學習要如何才能飛的更高更遠 !

不飛不曾飛 ... 終於知道青澀期代表蒼狗 ... 所以情殤 ,
一甲子的意境等於六十年的期盼的凝固 ... 所以就此棲巢 !
不飛 目前離線  
送花文章: 959, 收花文章: 7607 篇, 收花: 53001 次
回覆時引用此帖
有 2 位會員向 不飛 送花:
ppp0600 (2017-06-29),魔術王子 (2017-06-29)
感謝您發表一篇好文章
舊 2017-06-29, 01:40 PM   #7 (permalink)
管理版主
 
superxboy 的頭像
榮譽勳章
UID - 21259
在線等級: 級別:55 | 在線時長:3359小時 | 升級還需:1小時級別:55 | 在線時長:3359小時 | 升級還需:1小時級別:55 | 在線時長:3359小時 | 升級還需:1小時級別:55 | 在線時長:3359小時 | 升級還需:1小時級別:55 | 在線時長:3359小時 | 升級還需:1小時
註冊日期: 2003-01-02
住址: 北極
文章: 10335
現金: 130 金幣
資產: 844182589 金幣
預設

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

此帖於 2017-06-29 02:50 PM 被 getter 編輯. 原因: 不小心點到 ...
__________________
http://images.gamebase.com.tw/mybase/32/05/281/happy_card_000002776.jpg
愛的時候,可以不公平;不愛了、分開了,總該公平了吧

重情重義重粉味 愛台愛鄉愛查某
superxboy 目前離線  
送花文章: 3254, 收花文章: 4835 篇, 收花: 21651 次
回覆時引用此帖
向 superxboy 送花的會員:
魔術王子 (2017-06-29)
感謝您發表一篇好文章
舊 2017-06-29, 04:04 PM   #8 (permalink)
長老會員
 
ppp0600 的頭像
榮譽勳章
UID - 19602
在線等級: 級別:72 | 在線時長:5537小時 | 升級還需:84小時級別:72 | 在線時長:5537小時 | 升級還需:84小時
註冊日期: 2002-12-30
住址: 混亂地獄
文章: 10330
精華: 0
現金: 489 金幣
資產: 238713720 金幣
預設

引用:
作者: 不飛 查看文章
Gmail 通訊錄就口已的啦.....

安卓手機 換機換號 不用煩惱,直接從 Gmail 通訊錄下載聯絡人即可。
其實我是想弄個網頁版給一個社群的人使用,只是不會寫程式,也想不到辦法
ppp0600 目前離線  
送花文章: 26751, 收花文章: 7722 篇, 收花: 38435 次
回覆時引用此帖
向 ppp0600 送花的會員:
魔術王子 (2017-06-29)
感謝您發表一篇好文章
舊 2017-06-29, 08:01 PM   #9 (permalink)
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:43 | 在線時長:2021小時 | 升級還需:91小時級別:43 | 在線時長:2021小時 | 升級還需:91小時級別:43 | 在線時長:2021小時 | 升級還需:91小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 3071
精華: 0
現金: 15318 金幣
資產: 2678958 金幣
預設

引用:
作者: ppp0600 查看文章
想請問可有簡單的網頁版通訊錄管理
為了脫離電腦領域,只要跟網頁有關的程式設計小弟一概不碰
魔術王子 目前離線  
送花文章: 1542, 收花文章: 1584 篇, 收花: 3939 次
回覆時引用此帖
舊 2017-06-29, 09:13 PM   #10 (permalink)
管理員
 
getter 的頭像
榮譽勳章
UID - 6433
在線等級: 級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時
註冊日期: 2002-12-08
住址: 天線星球
文章: 8157
精華: 0
現金: 19955 金幣
資產: 765391 金幣
預設

引用:
作者: 魔術王子 查看文章
為了脫離電腦領域,只要跟網頁有關的程式設計小弟一概不碰
為了脫離電腦領域,迪西一律說「我只會玩,不會修。要修電腦請找電腦公司。」
__________________
在「專業主討論區」中的問題解決後,要記得按一下 http://forum.slime.com.tw/images/stamps/is_solved.gif 按鈕喔,
這是一種禮貌動作。

一樣是在「專業主討論區」中發問,不管問題解決與否,都要回應別人的回答文喔。
不然搞 [斷頭文],只看不回應,下次被別人列入黑名單就不要怪人喔。

天線寶寶說再見啦~ ... 天線寶寶說再見啦~

迪西:「再見~ 再見~」

Otaku Culture Party 關心您 ...
getter 目前離線  
送花文章: 37855, 收花文章: 6441 篇, 收花: 26052 次
回覆時引用此帖
向 getter 送花的會員:
魔術王子 (2017-06-29)
感謝您發表一篇好文章
舊 2017-06-29, 01:31 AM   #11 (permalink)
管理員
 
getter 的頭像
榮譽勳章
UID - 6433
在線等級: 級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時
註冊日期: 2002-12-08
住址: 天線星球
文章: 8157
精華: 0
現金: 19955 金幣
資產: 765391 金幣
預設

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

DOS 時代則是用遊戲修改工具內附的抓圖工具 ...
getter 目前離線  
送花文章: 37855, 收花文章: 6441 篇, 收花: 26052 次
回覆時引用此帖
向 getter 送花的會員:
魔術王子 (2017-06-29)
感謝您發表一篇好文章
發文 回覆



發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用

相似的主題
主題 主題作者 討論區 回覆 最後發表
請問有能介紹一下電腦硬體裝修"乙級技術士內容 editer0246 硬體疑難使用問題討論區 7 2003-09-02 05:00 PM
有沒有辦法"網路"控制 vincent3358 一般電腦疑難討論區 0 2003-08-30 02:36 PM
求助一台"完全能破防烤"的燒錄器 geneming 硬體疑難使用問題討論區 8 2003-08-30 01:13 PM


所有時間均為台北時間。現在的時間是 10:36 PM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1