none
VS 2010 日期與API問題.... RRS feed

  • 問題

  • Q1(如何判斷今天是星期幾??):

    Public Class Form1
    
     Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
      Dim a, b, c, d, f, g, h As Integer
    
      a = FindWindow(vbNullString, "0% / paperman_setup.exe 從 cdl.paperman.jp 已完成")
    
      If a <> 0 Then Shell("shutdown.exe -s -f -t 10") : MsgBox("亂灌什麼PaperMan ,你不知到你的ㄧ舉一動都再我的監視下嗎", vbCritical, "你被監督了!!!")
    
    End Sub
    
    

    我想判斷今天是否星期六 如果是的話就啟動此程式 不是則結束此程式

    Q2(API):

    創建一個新登入檔RegCreateKey

    Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
    
    

    我去pinvoke.net找過了但我看不太懂他的參數 我也不知到這樣子聲明是否正確

    問題是不知如何新增Reg

    2010年12月27日 下午 02:32

解答

所有回覆