{"id":1550,"date":"2024-11-18T09:54:45","date_gmt":"2024-11-18T01:54:45","guid":{"rendered":"http:\/\/www.jusesgod.com\/?p=1550"},"modified":"2024-11-18T10:24:14","modified_gmt":"2024-11-18T02:24:14","slug":"%e8%8e%b7%e5%8f%96%e7%94%a8%e6%88%b7%e5%90%8d","status":"publish","type":"post","link":"http:\/\/www.jusesgod.com\/?p=1550","title":{"rendered":"\u83b7\u53d6\u7528\u6237\u540d"},"content":{"rendered":"\n

1.\u901a\u8fc7Application\u83b7\u53d6<\/h2>\n\n\n\n

*\u901a\u8fc7Application\u5bf9\u8c61\u83b7\u53d6\u7528\u6237\u540d\uff0c\u5f97\u5230\u7684\u662f\u7528\u6237\u5168\u540d<\/p>\n\n\n

\nPublic Sub ShowUserName()\n    Sheet1.Range("c4") = Application.UserName\n    'MsgBox "\u5f53\u524d\u7528\u6237\u540d\u662f: " & Application.UserName\nEnd Sub\n<\/pre><\/div>\n\n\n
2.\u901a\u8fc7\u73af\u5883\u53d8\u91cf\u83b7\u53d6<\/h2>\n\n\n
\nSub showUserName()\n    Dim iuser As String\n    iuser = Environ("username")\n    Sheet1.Range("c6") = iuser\n    'MsgBox "\u5f53\u524d\u7528\u6237\u540d\u662f: " & iuser\nEnd Sub\n<\/pre><\/div>\n\n\n
3.\u901a\u8fc7WScript\u5bf9\u8c61\u83b7\u53d6<\/h2>\n\n\n
\nSub showUserName()\n    Dim wsh As Object\n    Set wsh = CreateObject("WScript.Network")\n    Sheet1.Range("c8") = wsh.UserName\n    'MsgBox "\u5f53\u524d\u7528\u6237\u540d\u662f: " & wsh.UserName\nEnd Sub\n<\/pre><\/div>\n\n\n
4.\u901a\u8fc7\u52a8\u6001\u94fe\u63a5\u5e93\u7684API\u83b7\u53d6<\/h2>\n\n\n
\nPrivate Declare PtrSafe Function getusername Lib "advapi32.dll" _\n    Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long\n\nFunction GetCurrentUserName() As String\n    Dim lpBuffer As String * 256\n    Dim nSize As Long\n    nSize = 256\n    \n    If getusername(lpBuffer, nSize) <> 0 Then\n        GetCurrentUserName = Trim(lpBuffer)\n    Else\n        GetCurrentUserName = ""\n    End If\nEnd Function\n \nSub ShowUserName()\n    Sheet1.Range("c2") = GetCurrentUserName()\n    'MsgBox "\u5f53\u524d\u7528\u6237\u540d\u662f: " & GetCurrentUserName()\nEnd Sub\n<\/pre><\/div>\n\n\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
1.\u901a\u8fc7Application\u83b7\u53d6 *\u901a\u8fc7Appli...<\/p>\n","protected":false},"author":1,"featured_media":1553,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[39,46],"tags":[],"class_list":["post-1550","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-cookbook","category-vba"],"_links":{"self":[{"href":"http:\/\/www.jusesgod.com\/index.php?rest_route=\/wp\/v2\/posts\/1550","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.jusesgod.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.jusesgod.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.jusesgod.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.jusesgod.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1550"}],"version-history":[{"count":2,"href":"http:\/\/www.jusesgod.com\/index.php?rest_route=\/wp\/v2\/posts\/1550\/revisions"}],"predecessor-version":[{"id":1554,"href":"http:\/\/www.jusesgod.com\/index.php?rest_route=\/wp\/v2\/posts\/1550\/revisions\/1554"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/www.jusesgod.com\/index.php?rest_route=\/wp\/v2\/media\/1553"}],"wp:attachment":[{"href":"http:\/\/www.jusesgod.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1550"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.jusesgod.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1550"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.jusesgod.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1550"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}