伊莉討論區

標題: VB6 轉換程式碼到.NET問題 [打印本頁]

作者: sob790717 時間: 2020-1-14 06:23 PM 標題: VB6 轉換程式碼到.NET問題

本帖最後由 sob790717 於 2020-1-17 12:32 AM 編輯

這是用系統API重新開機的程式

版本VB.Net 2005
[attach]130217698[/attach]

原本的程式碼是VB6

因為從Win8開始 VB6寫出來的程式不是說執行的很漂亮
所以想轉換到.NET

但是VB.NET的語法我不是很擅長
請問這個錯誤應該怎麼改呢?

作者: star231 時間: 2020-3-4 01:38 PM

VB6想轉換到.NET,兩者程式碼有所不同!如要轉換不如直接用VB.NET寫!

作者: jjlou 時間: 2020-3-13 05:42 AM

Something like:

Module Module1

Private Const ANYSIZE_ARRAY = 1
Private Structure LUID
      Dim LowPart As Long
      Dim HighPart As Long
End Structure

Private Structure LUID_AND_ATTRIBIBUTES
      Dim pLuid As LUID
      Dim Attributes As Long
End Structure

Private Structure TOKEN_PRIVILEGES
      Dim PrivilegeCount As Long
      Dim Privileges() As LUID_AND_ATTRIBIBUTES
End Structure
Private Const SE_PRIVILEGE_ENABLED = &H2
Sub Main()
      Dim tkp As TOKEN_PRIVILEGES

      Dim tmpLuid As LUID = New LUID()
      Dim tmpLNA As LUID_AND_ATTRIBIBUTES = New LUID_AND_ATTRIBIBUTES()

      tkp.Privileges = New LUID_AND_ATTRIBIBUTES() {tmpLNA}
      tkp.Privileges(0).pLuid = tmpLuid
      tkp.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED

End Sub

End Module

歡迎光臨伊莉討論區 (http://a04.eyny.com/)