Question

我无法收到Facebook用户的电子邮件。这是代码。如何获取用户的电子邮件地址，请帮忙。

Option Explicit

'this is the main RhinoScript file
Call MainRhinoScript()
Sub MainRhinoScript()

    'create Wscript.Shell object
    Dim WshShell : Set WshShell = CreateObject("WScript.Shell")
    Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject"): 
    'get or create user settings plugin folder and vbs file path string 
    Dim strVBSEventWatcherFile : strVBSEventWatcherFile = "C:\eventwatcher.vbs"

    Do
        'create auto-generated vbs file here and run it
        Call WriteVBS_EventWatcher_File(strVBSEventWatcherFile,
        Call WshShell.Run(strVBSEventWatcherFile)

        'The main code goes here, looped until done.
        'VBS eventwatcher script file is running simultaneously.
    Loop

End Sub

'this is simplified VBS writing subroutine to demonstrate how the code works, the actual one is much longer:
Private Sub WriteVBS_EventWatcher_File(strFilePath)

    Dim i,fso : Set fso = CreateObject("Scripting.FileSystemObject")
    Dim file : Set file = fso.CreateTextFile(strFilePath, True)

    file.WriteLine("Option Explicit")
    file.WriteLine("")
    file.WriteLine("Call Main()")
    file.WriteLine("Sub Main()")
    file.WriteLine("    Dim WshShell : Set WshShell = CreateObject(""WScript.Shell"")'create shell script object")
    file.WriteLine("WScript.Sleep 10")
    file.WriteLine("WshShell.SendKeys ""Rhino_Preselect "" ")
    file.WriteLine("End Sub")   
    file.Close()

End Sub

Answer 1

只需将以下内容用作您的API请求：

<div id="myDiv" style="color:blue;background-color:blue;"></div>
<iframe id="myIframe" src="www.othersite.com"></iframe>

我希望这能回答你的问题！

Answer 2

这件事帮助了我，我得到了结果:)

$loginUrl = $helper->getLoginUrl(array('req_perms' => 'email'));

无法获得facebook用户的电子邮件

2 个答案: