excel表格如何转域名

Sub ExtractData()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim data() As String
    Dim i As Integer
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    i = 0
    For Each cell In rng
        ReDim Preserve data(i)
        data(i) = cell.Value
        i = i + 1
    Next cell
    
    ' 输出到立即窗口
    For i = 0 To UBound(data)
        Debug.Print data(i)
    Next i
End Sub

import requests
import json

# 腾讯云API密钥
secret_id = "YOUR_SECRET_ID"
secret_key = "YOUR_SECRET_KEY"

# 域名注册API
url = "https://dnspod.api.qcloud.com/v2/index.php"

# 请求头
headers = {
    "Content-Type": "application/x-www-form-urlencoded"
}

# 请求参数
params = {
    "login_token": f"{secret_id},{secret_key}",
    "format": "json",
    "domain": "example.com",  # 从Excel中提取的域名
    "action": "register",
    "domain_type": "new",
    "year": 1,
    "user_data": ""
}

# 发送请求
response = requests.post(url, headers=headers, data=params)
result = json.loads(response.text)

if result["status"]["code"] == "1":
    print("域名注册成功")
else:
    print("域名注册失败:", result["status"]["message"])