- 博客(10)
- 收藏
- 关注
RSS订阅原创 TYVJ题解（P1025）
Program Problem_1025;Var n,i,j,k:Longint;Var a:array[1..10000] of Longint;Procedure Print(a:String;b:Longint);BeginIF bWriteln(a)ElseWrite(a
2011-07-26 12:36:48
417
原创 TYVJ题解（P1001）,绝对最优解！
rogram Problem_P1001;Var n,k:Longint;Var a:array[1..10000] of Longint;Var i,m:Longint;procedure qsort(dep,top:longint);var i,j,s,t:longint;
2011-07-26 12:35:51
660
原创 修改Windows7的启动名称
在 Windows 7 中，微软引入了一种全新的 boot loader 架构， Windows Boot Manager (Bootmgr.exe)。再像之前 Windows XP 中那样通过一个简单的文本编辑器来修改 Boot.ini 的方式来管理启动选项已经不行了，要对启动
2011-07-26 10:37:59
973
原创 好高兴，我的博客开通了！
上网两年多了，没有玩过博客，也算是一个孤陋寡闻的网民了，对博客的了解是那么少，可以说是近乎于零。这段时间，身边的朋友总是提到博客，使我对此也产生了浓厚的兴趣，决心上上博客，一观庐山真面目。 今晚，是我在网络上的人生重要里程碑。从今天起，我将开始我的博客生涯，成为一名博客（呵呵，
2011-07-26 10:36:53
446
原创 VB截图代码（超高质量）
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long,
2011-07-26 10:36:42
2365
原创 VB压缩图片（不失真）
Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As ByteEnd TypePrivate Type GdiplusStartupInput
2011-07-26 10:36:34
2730
2
原创 VB发送邮件代码（不使用任何控件）
On Error GoTo errinfoNameSpace = "http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message")Email.From = "61912
2011-07-26 10:36:22
6288
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人