【汉化任务简报】#27 图片交集像素抽出程序 - 冒险解谜游戏中文网 ChinaAVG

引用第1楼肥牛于2009-06-03 20:13发表的  :
9 j' H2 `7 \8 H$ G  ?% q# p查找像素的问题不难，难的是识别成文本文件。OCR的技术还是比较困难的。对于英文字体来说，26个字母+数字+符号可以生成码表查找，但是存在几个问题：0 p( B. n  @' F- C/ f/ Y3 I7 X
1、每个字符的宽度不同，这样在获取的时候有一定困难；
  R- J2 U+ [. `' _. m$ w# D2、文字字体假如不同，就需要建立不同的对码表；
( w: O% i1 W3 N. h3、如果是汉字，那需要的码表就更复杂了  s1 O# y5 h# w! K+ h( E# \# I
暂时只想到这些。

Option Explicit
Private Declare Function GetPixel _
Lib "gdi32" (ByVal hdc As Long, _
ByVal x As Long, _
ByVal y As Long) As Long
Private Sub cmdText_Click()
With picBox
.Cls
.ForeColor = vbYellow
picBox.Print "This is a test."
End With
End Sub
Private Sub cmdWork_Click()
Dim x As Single, y As Single, w As Single, h As Single
Dim strOut As String, strTmp As String, lngTmp As Long
With picBox
w = .Width
h = .Height
End With
strOut = ""
strTmp = ""
For x = 0 To w
For y = 0 To h
lngTmp = GetPixel(picBox.hdc, x, y)
If lngTmp = 0 Then
strTmp = "x:" & x & " y:" & y & vbNewLine
strOut = strOut & strTmp
End If
Next
Next
txtOut = strOut
End Sub
Private Sub cmdXor_Click()
With picBox
.DrawMode = vbXorPen
picBox.Line (0, 0)-(.Width, .Height), vbYellow, BF
End With
End Sub

复制代码

public void DrawXORRectangle( Graphics grp,
int X1, int Y1, int X2, int Y2 )
{
// Extract the Win32 HDC from the Graphics object supplied.
IntPtr hdc = grp.GetHdc();
// Create a pen with a dotted style to draw the border of the
// rectangle.
IntPtr gdiPen = CreatePen( penStyle,
1, BLACK_PEN );
// Set the ROP cdrawint mode to XOR.
SetROP2( hdc, R2_XORPEN );
// Select the pen into the device context.
IntPtr oldPen = SelectObject( hdc, gdiPen );
// Create a stock NULL_BRUSH brush and select it into the device
// context so that the rectangle isn 't filled.
IntPtr oldBrush = SelectObject( hdc,
GetStockObject( NULL_BRUSH ) );
// Now XOR the hollow rectangle on the Graphics object with
// a dotted outline.
Rectangle( hdc, X1, Y1, X2, Y2 );
// Put the old stuff back where it was.
SelectObject( hdc, oldBrush ); // no need to delete a stock object
SelectObject( hdc, oldPen );
DeleteObject( gdiPen ); // but we do need to delete the pen
// Return the device context to Windows.
grp.ReleaseHdc( hdc );
}

复制代码

引用第9楼sspking于2009-06-04 22:06发表的 :
( U8 H' ~- S9 x& \ _4 l0 O这个事情不难，我给你写个小程式~
" ]3 o8 f' F1 ^" Z- R7 `/ k: M就是取一个图片，把图片中所有的指定颜色的XY坐标集输出到TXT中对吧？