| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 198 人关注过本帖, 2 人收藏
标题:推荐一个免费的人工智能AI--deepseek
取消只看楼主 加入收藏
sam_jiang
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:14
帖 子:842
专家分:1296
注 册:2021-10-13
结帖率:97.14%
收藏(2)
已结贴  问题点数:20 回复次数:3 
推荐一个免费的人工智能AI--deepseek
手机上刷到红衣主教推荐的国产人工智能deepseek,非常强大,速度快,正确率高,我就去试了一下,感觉非常牛逼,值得推荐!

注册很简单,用手机号注册,填写个验证码,通过了就可以用了。

我让它给我生成一段vfp代码,用来向服务器上传图片。。。

几乎实时给我生成一堆代码,而且贴心给我注释,以后大家有问题可以直接问它了,知无不言言无不尽!关键是实时的,不用等。。。

以下是它给我生成的代码:
程序代码:
LOCAL lcBoundary, lcPostData, lcImageFile, lcFileContent

* 设置边界符
lcBoundary = "---------------------------" + SYS(2015)

* 设置图片文件路径
lcImageFile = "C:\path\to\your\image.jpg"

* 读取图片文件内容
lcFileContent = FILETOSTR(lcImageFile)

* 构建 POST 数据
lcPostData = "--" + lcBoundary + CHR(13) + CHR(10)
lcPostData = lcPostData + "Content-Disposition: form-data; name=file; filename=" + JUSTFNAME(lcImageFile) + CHR(13) + CHR(10)
lcPostData = lcPostData + "Content-Type: image/jpeg" + CHR(13) + CHR(10) + CHR(13) + CHR(10)
lcPostData = lcPostData + lcFileContent + CHR(13) + CHR(10)
lcPostData = lcPostData + "--" + lcBoundary + "--" + CHR(13) + CHR(10)

* 发送请求
loXMLHTTP = CREATEOBJECT("MSXML2.XMLHTTP")
loXMLHTTP.Open("POST", "http:///upload", .F.)
loXMLHTTP.SetRequestHeader("Content-Type", "multipart/form-data; boundary=" + lcBoundary)
loXMLHTTP.Send(lcPostData)

* 等待响应
DO WHILE loXMLHTTP.readyState <> 4
    DOEVENTS
ENDDO

* 输出响应信息
MESSAGEBOX("响应状态码:" + TRANSFORM(loXMLHTTP.status))
MESSAGEBOX("响应内容:" + loXMLHTTP.responseText)


之前在论坛里发的贴,没有人给我满意的答复,它给了
搜索更多相关主题的帖子: 智能 生成 代码 推荐 响应 
2025-01-10 23:21
sam_jiang
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:14
帖 子:842
专家分:1296
注 册:2021-10-13
收藏
得分:0 
这个人工智能真是可以啊!

我让它帮我优化一段代码,解决黑屏一闪而过的问题,它基本上帮我解决了,虽然有点小问题。
使用ipconfi命令获得ip地址,解决黑屏一闪而过的问题。
程序代码:
CLEAR

* 动态生成临时文件路径
lcTempFile ="D:\temp.txt"

* 清理临时文件
IF FILE(lcTempFile)
    ERASE (lcTempFile)
ENDIF

* 创建 WScript.Shell 对象
oShell = CREATEOBJECT("WScript.Shell")

* 运行命令并隐藏窗口
lcCommand = 'CMD /C "ipconfig > ' + lcTempFile + '"'
oShell.Run(lcCommand, 0, .T.)

* 释放对象
RELEASE oShell

* 检查文件是否生成
IF !FILE(lcTempFile)
    WAIT WINDOW "无法生成临时文件!"
    RETURN
ENDIF

* 读取文件内容
cstr = FILETOSTR(lcTempFile)
n = ALINES(atemp, cstr, CHR(13) + CHR(10))

* 提取 IPv4 地址
FOR i = 1 TO n
    IF "ipv4" $ LOWER(atemp[i])
        lcIP = STREXTRACT(atemp[i], ":","")
        lcIP = ALLTRIM(lcIP)
        ? lcIP
        EXIT
    ELSE
        LOOP
    ENDIF
ENDFOR

* 清理临时文件
IF FILE(lcTempFile)
    ERASE (lcTempFile)
ENDIF
7 天前 20:50
sam_jiang
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:14
帖 子:842
专家分:1296
注 册:2021-10-13
收藏
得分:0 
有网页版,有app,百度一下就行了,现在很火的
6 天前 22:30
sam_jiang
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:14
帖 子:842
专家分:1296
注 册:2021-10-13
收藏
得分:0 
鍥炲 8妤
5 天前 01:05
快速回复:推荐一个免费的人工智能AI--deepseek
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.244132 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved